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INTRODUCTION 


This document contains the supplementary material to Ontario Tax 
Study 7, Analysis of Income end Property Taxes in Guelph. It contains the 
manuals for three computer models: 


‘Repcred': the representative taxfiler analysis for 
property and sales tax credits. 


'Provered": the analysis of the revenue and incidence 
effects of property and sales tax credits 
in Ontario. 

'Guelphcred': the analsyis of the revenue and incidence 


effects of tax credits in Guelph. 


Additional copies are available from the Taxation and Fiscal Policy 


Branch, Ministry of Treasury, Economics and Intergovernmental Affairs, Ontario. 


October 1972 Brian Hull 


Digitized by the Internet Archive 
in 2024 with funding from 
University of Toronto 


https://archive.org/details/31/61120607114 
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I. INTRODUCTION 


This program has been designed to examine the implications 
of various possible forms of tax credit scheme. It is currently 
restricted to the examination of sales and property tax credits, 
but could, with a little modification, be used to examine possible 


credits for medicare payments. 


The program provides for the analysis of a number of 
possible formulations of a property tax credit as well as facili- 
tating an examination of the implications of various possible sets 


of parameters. 


The sales tax credit formula is related uniquely to one 
form of the property tax credit - the form proposed at the Finance 


Ministers meeting in Ottawa, November 1-2, 1971. 


The program provides for examination of a property tax 
exemption formula, as well as a formula, similar to the then 


existing basic shelter grant program. 


The primary purpose of this program is to examine and 
compare the incidence effects of alternative formulae and alter- 


native sets of parameters. 


Following the selection of a particular formula and 
parameter set, it may also be used as a reference for advising 


individuals of their prospective benefits under the scheme. 
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II. DESCRIPTION OF PROGRAM. 


The program analyzes the incidence effects of alternative 
tax allowance formulae assuming the application of the new Income 


Tax Act - Bill C-259. 


The rate schedule used is that initially proposed in 
Bill C-259 for 1972 assuming a combined federal and 30 per cent 


provincial tax, * 


The program provides for the optional inclusion in the 
analysis of the new allowances under Bill C-259: the employment 
expense allowance; the child care allowance; the new personal 
exemption levels for singles, marrieds and old people; charitable 
deductions; the standard $100 deduction; and contributions to 


registered retirement pension funds. 


The program generates a matrix of results by gross income 

and property tax class. It examines up to 40 income classes and 

30 property tax classes. Tables are generated for the following 
values: total income and property tax payable before tax credit 
formula is applied; difference in taxes produced by the credit 
formula (including refunds where applicable) ; the credit as a per 
cent of gross income; property tax as a per cent of gross income; 
total tax as a per cent gross income; and total tax less credit 


as a per cent gross income. 


—— aaa 


1. See: Hon. E. J. Benson, Summary of 1971 Tax Reform Legislation 
(Ottawa: Department of Finance, 1971), page 17. 


The program analyzes several broad categories of credit 
formulae: tax credits related solely to income (either taxable 
income or gross income); credits related solely to actual levels 
of property tax (such as the existing basic shelter exemption 
grant); credits related to both property tax and income; and a 
property tax exemption - which alters the tax base rather than 


the level of taxes to be paid or refunded. 


III. APPLICATION OF PROGRAM TO ANALYSIS. 


The primary purpose of this program is to examine the 
incidence effects of various tax credit formula for representative 
taxfilers. It examines the incidence for various possible combi- 


nations of personal exemptions, deductions and allowances. 


The program facilitates the first stage in designing a 
credit formula. A full analysis requires knowledge of the incidence 
of property taxes by income classes and a costing of the revenue 


foregone in the province under various formula. 


The computer model was designed using the time sharing 
computer facilities of Polycom Limited, Toronto which has a General 


Electric 400 series computer. 
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Appendix A 


TABLES GENERATED 


SUMMARY. 


A run of the program generates an analysis of the effects 
of the particular credit formula chosen for income filers with 
a given set of personal exemptions and deductions. Thus, fer a 
run which assumes an individual files as single with no dependents, 
the effects of the credit are demonstrated for various combinations 
of gross income and property tax. Each set of personal exemption 


and dependency characteristics requires a separate run. 


The output of a run is prefaced with a listing of the para- 
meter values of the particular credit form being tested as well 


as a summary of the assumed filer exemption characteristics. 


TABLES. 

A.l Sum of income and property tax payable before credit. 

A.2 Difference in taxes after credit: value of credit 
(may be refundable). 

A.3 Difference in taxes as per cent of gross income. 

A.4 Property tax as per cent gross income. 

AS Net property tax as per cent gross income (property 
tax less total credit). 

A.6 Total tax as per cent gross income (total tax is sum 


of income and property taxes). 


A.7 Total tax less credit as per cent gross income. 


hi 


ote siher> 


»*1ec 


‘eth 1: Agee? 


sAloi sel Snore 9 


Psosaen 1 


PBcoMw 


y gas! 


Tee" 


ats Fa alneiine ae spateney esrien arte ne A 
w4cid ampori to! sad. aban abet > aaiualgind ant +e 
ve dtoatel® bua snob tgmeval J oxopyey “Yo aa wovig.s 


dlgnte en. al Ph Loddivetel at eee 7e tae ie. 


vows 


+r omy: 
aor 4° 7 FG 
wt St yi 


Ani 


Lg 


4 


e439 14262 


mone! 


atc’ 


B.1 


Appendix B 


TAX SYSTEMS ANALYZED 


POSSIBLE FORMS OF THE TAX CREDIT 


(i) 


(ii) 


Income Related Credits 


A basic credit reduced by some fraction of either 
gross or taxable income. 


CREDIT = BASIC CREDIT - a, Y 


where Y may be either gross or taxable 
income 


A rule may be adopted that the basic credit is 
reduced by some fraction of income only after some 
minimum level of income has been reached. 


Property Tax Related Credits 


a) Similar to current basic shelter exemption: 


b) 


A basic credit increased by some fraction of 
the average net assessment of the municipality. 


CREDIT = BASIC CREDIT + a5 A 


where A is average net assessment of 
the municipality 


A rule may be adopted that if the calculated 
credit exceeds the basic credit, then the credit 

is reduced to equal either the basic credit or 
one-half the property tax whichever is the greater. 


Related to personal property tax paid: 


A basic credit increased by some fraction of 
property tax paid. 


CREDIT = BASIC CREDIT + a3 * 
PROPERTY 


A rule may be adopted that the credit does not 
exceed some fixed upper level. (It should be 
possible to ascertain at what gross income the 
limit will usually become operative). 


(iii) Credits Related to Both Property Tax and Income 


a) A basic credit increased by some fraction of 
property tax and reduced by some fraction of 
either gross or taxable income. 


CREDIT = BASIC CREDIT + ay 
PROPERTY TAX - as ¥ 


where Y is either gross or net income 


A rule may be adopted that there be an upper 
ceiling on the tax. Or, if gross income is 
adopted, a, may be set such that for average 
taxes for any income level, the credit works 

out at no more than the basic credit for that 
group. Thus, those who pay more than average 
property taxes in their income group will obtain 
a proportionately greater tax credit. The floor 
on the credit would be the basic credit level, 
or some fraction of it. 


b) No basic credit and credit calculated as some 
fraction of property tax reduced by a factor 
which is itself variable. The factor is the 
fraction of property tax already calculated 
divided by some constant. 


CREDIT = a, PROPERTY TAX (1 - ——-Y__ 
6 Constant 


= ag PROPERTY TAX - 26 PROPERTY TAX, | 
CONSTANT 


where Y is either gross or taxable 
income 


c) No basic credit and credit calculated as some 
fraction of property tax reduced non-linearly by 
income. (parabolic function). 

2 

— 


CREDIT = ag PROPERTY TAX (1 - CONSTANT 


CONSTANT 


where Y is either gross or taxable income. 


B.2 PROPERTY TAX EXEMPTION 


Provision to reduce property tax burdens may, in 
principle, be done with a special exemption. This, however, 
reduces the benefits of the scheme for those whose exemptions 


already approach to exceed their gross income. 


B.3 SALES TAX CREDIT 


The model will analyze one form of sales tax credit 
in conjunction with a credit related to both property tax and 


taxable income. 


B.4 SELECTION CODE FOR ALLOWANCE FORMULAE 


Credit Systems: 


NN = 1 
CREDIT = BASIC CREDIT - ay (Y - PTP) 
where Y = TAXABLE INCOME 
PTP = LEVEL OF EXEMPT TAXABLE INCOME (PTP> 0) 
ay = INCP 
NN = 2 


CREDIT = BASIC CREDIT + aA 
where A ™ average net property tax of municipality 
Set PTP =A 

&, = CRED 


(SEE NOTE) 


CREDIT = BASIC CREDIT + ay PROPERTY TAX - asY 
where Y = TAXABLE INCOME 
ay = CRED 


as = INCP 


CREDIT = BASIC CREDIT + a, PROPERTY TAX 
where a, = CRED 


(SEE NOTE) 


NN = 5 
CREDIT = BASIC CREDIT - ay (Y - PTP) 
where Y = GROSS INCOME ( PTP >0) 
a, = INCP 


(COMPARE WITH NN = 1) 


Exemption System: 
NN = 6 
EXEMPTION = BASIC EXEMPTION - INCP*Y 
where BASIC EXEMPTION = BCRED 


GROSS INCOME = Y 


Note: When NN = 2, if the calculated credit exceeds one half 
the property tax, the credit is calculated as one half 
of property tax. 


When NN = 4, if the calculated credit exceeds some 
upper limit, PTP, it is set equal to the upper limit. 


B.5 FORTRAN VERSION OF ALLOWANCE FORMULAE 


CD(I) = BCRED - INCP*(I) - PTP) 


if CD(I).LE.FP*BCRED, CD(1) = FP*BCRED 


CD(J) = BCRED + CRED*PTP 


if CD(J).GE..5*PTAX(J), CD(J) = .5*PTAX(J) 


TTT(1,J) = BCRED + CRED *PTAX(J) - INCP*TTINC(I,J) 


NN = 4 
CD(J) = BCRED + CRED*PTAX (J) 
if CD(J).GE.PTP, CD(J) = PTP 
NN = 5 
CD(I) = BCRED - INCP*(XINC(L) - PTP) 
if CD(1).LE.FP*BCRED, CD(I) = FP*BCRED 
NN = 6 
CD(L) = BCRED - INCP**XINC(L) 
££ °CD CL) GT. PTR CDCl) sarre 
TINC (1) = TINC (I) - CD(I) 
Note: NN = 6 is the exemption scheme - the exemption is 


subtracted from taxable income and the rate schedule 
applied to the resulting net income. 


Appendix C 


PROGRAM PARAMETERS 


C.1 SUMMARY. 


The program reads a datafile in the course of each 
run. This specifics the credit formula, parameters, the filer's 
exemption characteristics and the set of income and property 


tax classes to be analyzed. 


C.2 FORMAT OF THE DATAFILE. 


"Read" 
Statement Variable 
No. Symbol Description 
1 NN Credit or exemption formula - see 
Appendix B for specification. 
Nl Child care allowance: 0 if no child 
care; otherwise l. 
N2 Sales tax credit: 0 if no sales 
credit; otherwise l. 
N3 Registered pension plan deduction: 
0 if not analyzed; otherwise 1. 
2 M No. of income classes. 
N No. of LIA, RTC classes. 
K 0 if single; 1 if married. 
KK No. of children under 16. 
L No. of children under 14. 
LL No. of children 16 or over. 
LLL 0 if filer under 65 years old; 


otherwise l. 


10 


RSH 


PTAX 


Employment expenses: 0 or 
number claimed. 

Maximum employment expenses. 
Old age $650 deduction. 
Single exemption. 


Married exemption. 


Standard $100 deduction 
20 per cent charitable deduction. 
Exemption for children under 16. 


Exemption for children over 16. 


Maximum day-care allowance - $2,000. 
Assumed level of day care per child. 


Fraction of income which may be 
subtracted for day care. 


Credit as % property tax. 
Basic property tax credit 
Income coefficient. 

Maximum credit permitted. 


Minimum credit allowed. 


Income classes. 


Average taxes. 


Marginal tax rate. 


Property tax levels. 


ie 


12 


RTC 


Refundable tax credit classes. 


Low income allowance classes. 


10 
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Appendix D 


PROGRAMME LISTING 


D.1 PROGRAMME OUTLINE. 


Main Programme Calls 
Subroutines: RSCH * Rate schedule 
TABL - Tables 
TAB2 
TAB3 
TAB4 
TABS 


De2 TABLE DESCRIPTION. 
TABL = Property tax exemption tables 
TAB2 - Generates 7 tables by income 
and property tax class 
(see Appendix A) 
TAB3 - Assumption summary for run 


TAB4 - Header 


TABS - Summary of property classes analyzed. 
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RP CRD 


TOSSAV 
B4SNDM 
ees 1lY,122 
IS@sRPCc 
116 DIMENSION RTIC( 40) ,LIAC49) 
126 COMMON XINC(49), TINC( 49) ,CD(4@) ,CCD,RSH(15) ARSH(15) 
130 COMMON FEN 
149 COMMON PTAX(30) 
150 COMMON MMM. CRED 
16@ COMMON N,K,KK,L,LL,LLL,MM,BCRED, INCP ,PTP ,FP 
174 COMMON M,NN,NI \N2 
182 COMMON STINC(49, 30) 
196 COMMON TTT (42,30) 
246 COMMON STX(4@, 30) 
210 COMMONTAX (40,30) , TTINC(40,38),CC(5) 
211 COMMON N3 
2208C 
238C 
240C 
252C REPRESENTATIVE TAX FILER ANALYSIS 
260C FOR PROPERTY AND SALES TAX CREDITS 
278C 
2380C 
P9@C BRIAN HULL, SEPT.20, 1971 
 3A2C 
310 REAL LIA,INCP 
32% DATA TITINC/1204*0/ 
Peo A TA XINC, TINC RICZ120*0/ 
349 DATA STINC ,TAX/2400*o/ 
358 DATA ARSH,RSH/3d*0/ 
360 DATA PTAX/39%0/ 
372 DATACD/40*@/ 
meso DATA LIA/40x*0/ 
385 DATA STX/120%%*3/ 
39% DATA CC/5*o/ 
44@ DATA TIT/12900*2/ 
41% 102 FORMAT(A6) 
Poo PRINT, "DATAFILE",7** 
436 READ 120,FN 
449 CALL OPENF (1,FN) 
454 CALLTAB4 
A6GC 
Bee ADC! 3, ERR=152) LN, Ni,NI N23 
4BAC Nt=@,1F NO CHILD CARE: 1.IF CHILD CARE 
eee ND = @,IF NO SALES TAX CRED+ 1, IF PER C. S.TAX.CRED. 
BAG N.B. SALES TAX CREDIT IS ASSUMED TO BE 10.9@ DOLLARS 
le 
ae N3 = @ IF NO REGISTERED PENSION FUND OTHERWISE | 
522C NN= 1,CREDIT FUNCTION OF INCOME33,FUNCTION TAXABLE 34, 
530 READ(1;,ERR=150) LN,M,N,K,KK,L,LL,LLL MM 


RPCRD CONTINUED 


540C M= NO). OF DNCOME CLASSES 
B50C N= 0 (Orsi Se LAR CLA ook 
560C K="0 Te SINGER, tik MARR DED 
B.IBC KK= NO. OF CHILDERN UNDER 16 
5380C L="NO. Or Chi DOREN UNDER 14 
59 6C EL= NO. OF CHILDREN 16 OR OVER 
AAC LLL=\ @. Th UNGER_GS.) OTHERWISE 44 
Elec MM= EMPLOYMENT EXPENSE @ FOR NONE? OR NO. 
6206 READC I$, ERR=lo0J EN Exe, EXA GEA IS EXP? 
SobC EXE= EMPLOYMENT EXPENSES 
640)C EXA= OLD AGE $659 DEDUCTION 
659C EXP= | IP SINGLE DEDUCTION$2 IF MARRIED 
HOO READ (13, ERR=1oo)”- LN DEMAUECH EXCH excCH?2 
Gi DEM= STANDARD $140 DEDUCTION 
680C 
690C DECH= 29 PER CENT CHARTTASUR DEDUCPEION 
T4OBC EXCH1= CHILDREN UNDER 16 
LAE EXCH2= CHILDREN OVER 16 
720 READC1§ ,ERR=150) DN.DECAR, DECARE ,DECAM 
T3aC DECAR= DAYCARE OF CHILDREN $2939 
T46C DECABL= ASSUMED LEVEL PER Crimp 
7506 DECAM= FRACTION OF INCOME 
TOO READ CI S.BRR= 157)" CN CRED EP CRED WING? eI PrP 
TIMC CRED= CRED 4% PROPERTY TAX 
7186C BCRED= BASIC PROPERTY TAA 
T9GC INCP= INCOME CO-EFPICTIEN f 
BEC PTP=s MAX. CREDIT PERMIT IED" 
5.1 8C FP= FUDGE oes 
B20 HEAUGI.)- Sex Gh luda iy) 
Se eek | got eee 1a) 
Bee Bent 1.) «<CRSAC Eh), T=, 13) 
moo rn Cl do aC ROAR CL) Teds Bn 
oid ae AD Sb. ORC CL) bee] oN) 
mee ee RI Jy CLE ACT Teed ND 
Sag i27 RORMALCK WI Ay AGS 22) 


894 719 FORMAT CF9. 2) 
PO PHINT.UACRED oo * 
9190 PRINT719, CRED. 
O20 PRIN], YBCRED",~* 
930 PRINT 719,BCRED 
Pam PRINT MP IP 1 oa 
yoo PRINT IS,PiP 

ace PHU ALT NCP tx 
979 PRINTTI2, INCP 

930 PRINT, 

996 GO TO 125 

1962 154 WRITE(2,0, "ERROR? JN DATAPILE", LN 
1916 GO TO 111 

14209 125 CONTINUE 
1930 DO 256: Je1,32 


U5 


RPCRD CONTINUED 


1d4¢ 
1350 
1379 
1G3¢ 
1490 
11 ag 
111¢ 


oO. PTAX(J)=PTAX(J)*1@, 
IP CNN NE. 2)G0 T0919 

n09 13 J=1,25 

CD( J) =BCRED+CRED*PTP 


IF(CDCJ).GE..5*PTAX(J))CD(I)=) S#PTA NCS) 


PRINT,"CD  ,PTAX",* 
916 FORMAT(2X,12,F8.3,X,F8. 
PRINT 916,J,CD(J),PTAX(J) 


1125 913 CONTINUE 


SS 
Ce, 


I Os.01 = &) 0) Go Go £ 
~~ 
C) 


1134 919 CONTINUE 

1140 [FPCNS.NE.4) GO TO769 
PES PRENT. 

116@ PRINT, 

Mite DOBBS) 25 

1188 COC J)=CRED*PTAX (WJ) 
1499 CDC J) =BCRED+CD(J) 
bow) - LeCeOC IGE, Cane =PTP 
Pee Bie BO ah EOC J = 

te28 PRINTSUCD x 

hese PRAN TAO VICD tS) 

i249 PRINT,SP TAX" “x 

1250 PRINT/@9,J.,PIAX(J) 
1269 380 CONTINUE 

1276 769 CONTINUE 

1284C 

1290C 

1 3@2C 

1319 DO255 I[=1 .M 

1320 YINCCL)=XINC(I)*192. 
Pog2 TINCC I) =X INCCL) 

1323 255 CONTINUE 

133C 

foe ee CHS.NE.1) GO TO 257 
1332 D0 258 [=1,M 

Peer CULL y=X INCL 1.6 
Mead TPCRTCCL).GE.25MeN) BICC 1) =2542. 
fees CINGCTDH=KINCC TL) -RICCT) 
1336 258 CONTINUE 

pasar 257 CONTINUE 

1 34¢ 

ts 

33 

we 


IF(K.LE.3) GOTO 200 
MI B=ExP 2 


1410 SOTO214 


1434 
144¥ 


2449 CONTINUE 
XIE=EXP | 
21@ CONTINUE 


RPCRD CONTINUED 


145 EXE= XINC(I)*.@3 

1460 If CEX EGE. 15650) EXE=152..¢ 
1476 TINCCI)=TINC(I)-XIE 

1480C CHILD CARE DEDUCTIONS 

1490 IFC(N].£0.9) GOTO211 

15@S XP=DECARL*L 

1518 IF(XP.GE.DECAM*XINC(I)) XP=DECAM*XINC(T) 
1520 IF(XP.GE.DECAR) XPSDECAR 

1536 TINC(I)=TINC(1I)-xXP 

1546 211 CONTINUE 

155@ TINC(I)=TINC(1)-KK*EXCHI 

156@ TINC(CI)=TINC(I)-LL*EXCH2 

1570 TINC(1)=TINC(1I)—LLL*EXA 

1586 TINC(I)=TINC(I)-EXE*MM 

1590 YY=DECH*XINC(I) . 

1600 IFCYY.GEVI@®) Gom) 220 

1618 YY= 

1620 GOTO23¢ 

1636 220 CONTINUE- 

1640 DEM=% 

1650 238 CONTINUE 

16602 IFCIYY.GE.380.@)YY=300 .@ 

1676 TINC(CI)=TINC(1I)-DEM-YY 

1680 IFCTINC(I).LE.6,.@)TINC(I)=@.0 
16998C 

1 7@3C 

A OL 

1720 IFCNN.NE.5)GOTO41@ 

TES! CS EG) RS AN ean Es 

1746 TINCCI)=XINCCI) 

1758) GOTO427 

1760 410 IF(NN.NE.1)GOTO0425 

1770 427 CONTINUE 

1780 IF(TINC( 1) .LE.PTP)GOT0424 
1798 CDC T)=BCRED~INCP*(TINC(I)—PTP) 
‘1860 IF(CD(I).LE,FP*BCRED)CD(I)=FP*BCRED 
13814 GOTO426 

1820 424 CONTINUE 

1836 CD(I)=BCRED 

184% 426 CONTINUE 

eee EO moot NCC LYS PTT 61. f 3 
1360 425 CONTINUE 

1870C 

1880 ITFCNN.NE.6)GO T0250 

1899 CD(1)=BCRED-INCP*XINC(T) 

ee TRO COCEy GT; PIPJEDCL) =e 1p 
ete Teel) LE... 8) CDCl) se 

1920 GO TO 39@ 

19 38C 

1946C 


RPCRD CONTINUED 


1956 259 CONTINUE 

1969C 

I97OC 

19828C 

1990C 

2IBDC 

218C 

2d20C 

20 30C 

2D40C 

2450C 

2068 GOTO 395 

2019 390 CONTINUE 

2536 

2090 TIINC(I,1)=TINC(I) 
ete. DIINO td ST PIne gd .19° =CochD 
2119 MMM= | 

2AGY o- GO 01TQ) 396 

2438 395 CONTINUE 

2140 MMM=3¢ 

2158 396 CONTINUE 

2168 540 CONTINUE 

21 76C 

2IBD DO, 2b2 41 =) aM 

21986 DO 252 J=1, MMM 
poe “EEL Glad) SCENE CT SD 
Bea LLINCKL, J 2=PINCCL) 
pee 2c CON LUNUB 
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2310 IFCNN-NE.3) GOTO1748 
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Pook IF(N2.E9.8) GOTO02109 

2340 XYZ=10.*KK 

2350 XYZ=XYZ+19.*LL 
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239% 2189 CONTINUE 
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2536 1745 CONTINUE 

254@ 1748 CONTINUE 

255G IF(NN.EQ.5)GOTOI 776 

256@ IF(NN.EQ.1)GOTOI776 

2570 GOTOI8IG 

2580 1776 CONTINUE 

2599C 

2600 DO 122 I=1,M 

2612 DO 122 J=1,MMM 

2620 STINC(1,J)=CD(1) 

2630 122 CONTINUE” 

2640 1819 CONTINUE 

2650 IFCNN.EQ.4)G0 701931 

2668 IFC(NN.EQ.2)GO T0193! 

2670 GOTOI939 

2688 1931 CONTINUE 

2696 DY) 1938 T=1,M 

2788 DO 1937 J=1, MMM 

2719 STINC(1,J)=CD(J) 

2726 1937 CONTINUE 

2730 1938 CONTINUE 

2748 1939 CONTINUE 
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2820C 
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2850 IF(MMM.GT.1.9) GO TO 3619 
2868 CALLTAB3 

ee TOU CALL TAB! 

2889 GO TO 30248 

2390 3010 CONTINUE 

2900 CALLTAB3 

2919 CALLTAB2 

292@ 3020 CONTINUE 

29328 CALLTAB5 
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(3270 WRITE(2,), " CREDIT LS. DEDUCTED." 
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Ey END 
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it INTRODUCTION 


This program is designed to examine the revenue and 
incidence effects of possible sales and property tax credit 
formulae in Ontario. The analysis may be conducted within three 
economic frameworks and under two tax systems. The alternative 
economic frameworks are: the year of the data base (1968); and, 
1972 and 1973, assuming plausible economic environments. The 
alternative tax systems are: the tax system which existed up to 
December 31, 1971, and, the new tax system introduced by Bill C-259 


taking effect January 1, 1972. 


The program yields estimates of the total cost of 
specified credit formulae under the assumed economic environment 
and tax system as well as an analysis of the cost and incidence 


of the formulae by gross income and family dependency classes. 


The incidence of property taxes by income class is 
derived from the analysis of Guelph income and property tax 
records. The Guelph results are normalized to the provincial 


level. 


1. See: Brian Hull, GUELPHCRED: Manual for the Analysis of the 
Revenue and Incidence Effects of Tax Credits in Guelph (Toronto: 
Ministry of Treasury, Economics and Intergovernmental Affairs, 
1972), mimeo; and, Staff Study, Analysis of Income and Property 
Taxes in Guelph, (Toronto: Ministry of Treasury, Economics and 
Intergovernmental Affairs, 1972). 
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II DESCRIPTION OF PROGRAM 


The specification of the tax system analyzed and the 
economic environment is done within the body of the program 
using switches. The credit system employed must be specified 
with the appropriate function at the point in the program where 


the analysis of the credit takes place. 


The sales tax credit is a function of the number of 
members of the household and taxable income, + Tax returns filed 
claiming a married exemption are assumed to correspond to a 
unique household. However, in households where both spouses 
work and each earns more than $1,600 (under the new tax act), 
both file as single. In addition, students with temporary 
membership in the work force who continue to live at home are 
still enbare of their parental household. (The exceptions are 
students who either alone or in groups may rent accommodation 
apart from official school residences. Such groups, occupying 
separately assessed residential units, would be classified as 
households.) Thus, the proportion of single taxfilers who 
constitute unique households is very substantially less than 


the proportion of married ones. 


\ 


1. See: Hon. W. Darcy McKeough, "Preliminary Outline of a System 
of Property and Sales Tax Credits for Ontario Taxpayers," 
Meeting of Ministers of Finance, Ottawa, November 1-2, 1971 
(Toronto: Department of Treasury and Economics), mimeo. 


As the sales tax credit depends upon size of household, 
and as the proportion of households among filers who file as 
married is nearly one - while the proportion among those who 
file as single is much less than one = a classification of tax 
returns by personal exemption class as well as by gross income 


class, is required. 


In the "Green Book", Taxation Statistics, this 
information is provided only on a Canada basis. It is thus 
necessary to employ adjustment factors to reduce the Canada 
data to a provincial basis. This is done within the program 


both for numbers of taxfilers and taxable income. 


The estimated number of returns and amount of taxable 
income in each personal exemption class is summed up and adjusted 
by a factor which brings the total to the known Ontario total 
in the base year, The number of returns and taxable income are 
projected to 1972 and 1973 by factors whose derivation is 


discussed in Appendix B.1. 


Two methods are used for deriving taxable income 
under the new tax act, Bill C-259,. The first allows only for 
the change in personal exemptions. The second employs the 
average change in the tax base by income tax class, as indicated 
by the GITAN analysis conducted within a similar economic 
framework. The procedure is discussed more fully in Appendix B.2.2 


hs Ontario Studies in Taxation Nos. 1, 2 and 4 employ the GITAN 
program as modified and developed by the Ontario Treasury. 


III APPLICATION OF PROGRAM TO ANALYSIS 


The principal purpose of this program is to provide 
a guide to the revenue implieations of alternative formulae. 
The estimates of the model must be accepted within fairly broad 
confidence intervals. The extrapolation procedure is much more 
rudimentary than that employed in Ontario Studies in Tax 
Reform, No. 4. The exact number of households is difficult 
to estimate. From the total of residential properties assessed 
for taxation, must be subtracted summer cottages and vacation 
homes, residences whose Seeibents file an income tax return in 
some other jurisdiction, and vacant lots. An estimate of the 


number of roomers and boardérs now eligible must be added. 
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Appendix A 


TABLES GENERATED 


SUMMARY. 


A run of this program analyzes the revenue and incidence 
effects of the proposed credit formula for various target years. 
The data base for runs to date of issue of this manual is 1968. 
The data is from the Taxation Green Book and is classified by 
gross income and dependency filing characteristics for each 
edterae, These tables are on a Canada basis and are adjusted 
to an Ontario basis using the ratio of taxfilers and taxable 


income by income class for Ontario and Canada. 


Property taxes for each income class are derived from 
the Guelph analysis of matched income tax and property tax records. 
The property tax figures are the average level for each income 
class adjusted for the ratio of average provincial property taxes 


to average Guelph property taxes. 


The advantage of the particular grouping of the data 
employed is that it makes explicit the degree to which family 
circumstances (number of dependents) affect the value of the 
credit for taxfilers assumed to be bearing the same level of 
property taxes. It also a necessary grouping for calculating 


SRE SD 


1. Table 7A, All returns by marital status, dependents and income 
Taxation Statistics (Ottawa: Department of National Revenue, 
Taxation, edition 1970) p.104 and following. 


the value and incidence of a sales tax credit assumed to be $10 


for each member of a family, reduced by 1 per cent of taxable 


income. 
TABLES. 

A.l Adjustment factor, taxfilers, Canada level to Ontario 
level. 

A.2 Number of taxfilers by marital status and number of 
dependents, Canada. 

Aj Summary by income class, number of taxfilers with 
taxable returns, Ontario; number of taxfilers, all 
returns, Ontario; number of taxfilers, all returns, 
target year of analysis, Ontario. 

A.4 Adjustment factor, taxable income, Canada level to 
Ontario level. 

A.5 Taxable income, Total by dependency class, Canada 
(vertical sum). 

A.6 Taxable income, Canada. 

A.7 Taxable income, Ontario, old tax act. 

A.8 Taxable income, Ontario, new tax act (changes in 
exemptions method). 

A.9 Taxable income, Ontario, new tax act (changes in tax 
base by income class method using GITAN results). 

A.10 Total sales tax credit by income and dependency classes. 

A,11 Average value of sales tax credit by income and 
dependency classes. 

Ake Total revenue cost of sales tax credit. 


A.13 Number of households by gross income class. 
A.14 Number of households by dependency class. 


y Py ts Number of taxfilers by dependency class. 


A,16 
Behr 
A.18 


A.19 


A.20 
A,21 
A,22 


A, 23 


Total number of taxfilers. 
Total number of households. 
Property tax, average per household, by income class, 


Cost of property tax credit by income and dependency 
classes. 


Cost of property tax credit by income class. 
Cost of property tax credit by dependency class. 
Total cost of property tax credit. 


Average cost of property tax credit by income and 
dependency classes. 
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Appendix B 


TAX SYSTEMS ANALYZED 


B.1 SUMMARY 


The provincial credit analyzer estimates the cost and 


incidence of various possible credit formulae using 1968 data. 


The analysis may be conducted for 1968, 1972 and 1973 
under both the old tax act and the act adopted in December 1971, 


C=-259 e 


The modification of the tax base to represent the base 


under Bill C-259 may be done by either of two procedures: 


aig reducing the tax base by the increase in exemptions 


for singles and marrieds only. 


2 altering the tax base by the percentage difference in 
the tax base under the old and new tax systems (by income 
class) as indicated by provincial runs of GITAN within the 


same economic environment. 


The total cost of both a sales tax credit and a property 
tax credit formula is very nearly the same, whichever procedure 


is used. 


The extrapolation of the analysis from the 1968 data 
base is undertaken with the very simplest possible procedure. 


The number of taxfilers between 1968 and 1972 increases at the 


level projected for Ontario in the GITAN analysis. The number 
of taxfilers in each income, dependency class cell is increased 
by this factor, Between 1968 and 1972 the number of taxfilers 
in Ontario is estimated to increase by slightly more than the 


national average. 


Income in Ontario is assumed to change between 1968 
and 1972 by a factor which adopts the forecast performance of 
the Ontario economy in 1972.! Taxable income in Ontario increases 


more rapidly than income itself and this is allowed for in the 


analysis, 
1972/1968 
Increase in total income 144717 
Increase in no. of taxfilers 1.18893 
Ratio of taxable income to 
total accured income:” 

1968 Old tax base 5011 

New tax base -4104 
1972 Old tax base MMS 

New tax base sDU LA 


Taxable income for 1972 is then multiplied by a factor 
which is the increase in total income times the increased share 


of taxable income (1.44717* ((.5014/.4104)) = 1.76805). 


1. Canadian and Ontario Economic Forecast (Toronto: Dept. of 
Treasury and Economics, Fall, 1971). 


2, These ratios are based on GITAN runs for 1968, 1972 GANADA 
basis, That is GITAN, Level 7.2 runs 1968, 7:409; 1972, 7:420, 
This GITAN analysis is based on the same forecast as that used 
in this study. 


The extrapolation procedure for the economic environ- 
ment used in this analysis is the same as that used in the 


Guelph Analyzer. 


Property taxes by income class are the average by 
income class for Guelph in 1968, normalized to the provincial 
level, See B.4 for a discussion of property tax level 


extrapolation, 


B.2 NEW TAX ACT, 


Two methods are used to estimate the tax base under 
C-259: 1, the change in exemption procedure; 2, the GITAN 


procedure, 


1. Under the exemption procedure, the tax base is 
reduced by the increase in exemptions for singles and 
married taxfilers, Taxable income for taxfilers filing 
as single is reduced by the increase in the single 
exemption times the number of taxfilers filing as single. 
Taxable income for taxfilers filing as married is reduced 
by the increase in the married exemption times the number 


of taxfilers. 


2. With the GITAN method, the taxable income by income 
class is multiplied by the ratio of taxable income under 


the new and old systems for the appropriate year. 


Gross Income Class Ratio of New Tax Base to Old 


1968 1972 
S.. FiO a2 000 2.687 7.309 
2,000 - 3,000 2393 - 568 
3,000 - 4,000 - 649 697 
4,000 - 5,000 erg ds 791 
5,000 - 6,000 Ay he, a8 
6,000 - 8,000 854 «889 
8,000 - 10,000 892 Pe 5 
10,000 - 25,000 963 Pi: be) 
25,000 and over 1.067 1.0626 


Source: GITAN runs 7:409 and 7:20, Ontario, Note in 1968 and 
1972 taxable income under $2,000 is an increase in a 
negative amount. 


Factors for GITAN method used in program income 


classes: 
Gross Income Class Ratio of New Tax Base to Old 
1968 1972 

$ 0 =- 2,500 0 0 
2,500 - 3,000 395 - 568 
3,000 - 3,500 - 649 697 
3,500 - 4,000 » 649 697 
4,000 - 4,500 L73E s7 oR 
4,500 = 5,000 Pil gon eras 
5,000 - 5,500 793 . 833 
5,500 = 6,000 793 833 
6,000 - 6,500 854 889 
6,500 - 7,000 854 889 
7,000 - 7,500 854 aden 
7,500 - 8,000 854 Bh "4 
8,000 - 8,500 892 953 
8,500 - 9,000 892 953 
9,000 = 9,500 892 Pa. fe Ve 
9,500 - 10,000 892 953 
10,000 - 25,000 963 1.063 


25,000 and over 1.067 Lose 


The changed exemption method analyzes only one of 


the significant differences between the old and new tax acts. 


It does represent, however, the biggest modification in the 


tax base. 


The changes in the tax base produced by the GITAN 


method is the net effect of all the alterations in the tax 


base produced by the new tax act. 


Thus, the GITAN method includes the net effect of 


the following alterations: 


8. 


9. 


changed exemptions for singles and marrieds. 


dividend tax credit. 


standard employment expense allowance. 


top employee benefits. 


deductibility of U.I.C. contributions. 


attribution to employees of employer medicare contributions. 


taxation of U.I.C. benefits. 


sickness and accident benefits from private plans. 


inclusion of scholarship and fellowship income and 


special student allowance. 


is 


changed definition of medical expenses. 


These factors do not include the effects of the 


capital gains tax. 


Wn 


B.3 HOUSEHOLD POPULATION. 


In 1968, there were 3.366 million tax returns filed in 
Ontario, of ties’ 2522 million constituted untaxable returns. = 
For that year, the Ontario Department of Municipal Affairs reports 
that there were 2.173 million households assessed for residential 
and earn Pareee: A household for tax purposes must be distinguished 
from a more behaviourally defined, socio-economic household. More 
than one "family" may share living quarters assessed as a separate 
unit, and, a "family" may have more than one dwelling, ski chalet, 
cottage, etc., each of which is separately assessed as a household 
for tax purposes. In addition, many vacant lots, zoned for 
residential housing, are counted as separately assessable units 
and counted as "households". 


1968 1972 


Number of tax returns 2.345 ms 3.977 mm; 
Number of households Zekio Ms 
Number of households in analysis PsA A aaa Ya to Kies 


Number of Households 


for Residential and Farm Tax Purposes. 


million 
1968 Qt 72 
1969 2.236 
1970 2.400 3 


1. See Taxation Statistics, (Ottawa: Dept. of National Revenue, 


Taxation, 1970 edition), Table 1, p.15. 


2, Hon. W. Darcy McKeough, 1968 Summary of Financial Reports of 
Municipalities, (Toronto: Dept. of Municipal Affairs, 1969). 


3. Hon. W. Darcy McKeough, Summary of Financial Reports of 
Municipalities,op.cit., 1968 and 1969 editions, and 


Department of Municipal Affairs. 


The actual number of principal householders 
expected under the tax credit must be the total reduced 
by the number of second establishments in the Province 
(primarily cottages) and increased by the anticipated 
increase in claims from roomers and boarders and tenants. 
Both of these factors are, to some extent, judgmental and 
estimated from other sources. An allowance for them 


should be made after the other analysis is completed. 


The analysis implies a 3.75 per cent increase 
in the household population in 1971 and 1972. This compares 
with an increase of 2.95 per cent between 1968 and 1969, 


and of 7.33 per cent between 1969 and 1970. 


For purposes of estimating the cost of the sales 
tax credit the full taxfiling population is used. To 
estimate the revenue cost of the property tax credit, 
only the household population, as defined above, is used. 
The derivation of the household population from the 


taxfiling population is explained below. 


The analysis assumes that all tax returns filed with 


a married tax exemption constitute a household for purposes of 


the property tax credit. 


It further assumes that 95 per cent 


of those who file as single and claim at least one dependent 


constitute a household for purposes of the credit. 


The population 


of those who file as single with no dependents is reduced by the 


following. factors: 


Gross 
Income 
Class 


- 2,500 
- 3,000 
=) 19,500 
- 4,000 
- 4,500 
-~ 5,000 
- 5,500 
- 6,000 
- 6,500 
~ 7,000 
mie TOO 
- 8,000 
- 8,500 
- 9,000 
- 9,500 
- 10,000 
- 25,000 


and over 


Adjustment Factors From 
Taxfiler to Household Basis 
for Taxfilers Filing 


as Single with No Dependents. 


1710 
2281 
2851 
3421 
4561 
5416 
6300 
6300 
6300 
6300 
6300 
6300 
. 6300 
6300 
.6300 
6300 
6300 
.6300 


B.4 PROPERTY TAXES, 


Property tax by income class is the average by income 


class for Guelph in 1968, normalized to the Provincial level. 


Extrapolation of property taxes: 


Guelph mill rates: 


1968 27470 
1969 28.90 
1970 22591 
1971 30.60 
increase 71/68 1.1102 
implicit annual rate of change 72/68 2.65 per cent. 


AVERAGE PROPERTY TAX 
1968 
Ontario $337.00 
Guelph $326.00 


Guelph analysis $320.00 
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VARIABLES, 
XTRO(20) 


TINCO (20) 
TBLO(20) 
TX0(20) 

XNTR (20) 
XARO(20) 
VABLO(20) 
TAX (20) 


D(20, 8) 
TT(20, 8) 
PNTR (20) 


ATO (20) 
STT (20) 


PTBO(20, 8) 


SM(8) 
SD (8) 


TB(20, 8) 


il 


it 


tt 


i] 


i] 


tt 


Appendix ¢ 


PROGRAM PARAMETERS 


No. of taxfilers with taxable returns, 
ONTARIO, 


Total income, ONTARIO 

Taxable income, ONTARIO 

Total tax, ONTARIO 

Number of tax returns, CANADA 

Total taxfilers, all returns, ONTARIO 
Total taxable income, all returns, ONTARIO 
Total tax, all returns, CANADA 


No. of tax returns, CANADA, in each personal 
exemption class 


Taxable income, for each personal exemption 
class, CANADA 


Ratio, all ONTARIO taxfilers, to all 
CANADIAN taxfilers 


Not used 
Sum of taxable income by income class 


Ratio, all ONTARIO taxable income to all 
CANADIAN taxable income 


Sum of taxable income by exemption class 
Sum of returns, by exemption class 


Taxable income by income and dependency 
class, ONTARIO 


SDI (20) 
$c(20, 8) 
SNTR 
STRO 
STBO 
SINO 


STO 


DELS 


HSUM 


TBS8 (20) 


TBS2 (20) 


ul 


Sum of returns by income class 


Cost of credit by personal exemption class 
and income 


Sum of returns, CANADA 


Sum of taxable returns, ONTARIO 


Sum of taxable income, ONTARIO 


Sum of total income, ONTARIO 


Sum of total tax, ONTARIO 


Increment in single exemption, new bill 


Increment in married exemption, new bill 


Total 
Total 
Total 


GITAN 
1968 


GITAN 
1972. 


cost, property tax credit 
cost, sales tax credit 
number of households 


adjustment factors of taxable income, 


adjustment factors of taxable income, 


Er 


C.2 FORMAT OF DATAFILE. 


Variables are read in from the datafile in the 


following order: 


XTRO 


TINCO 
TBLO 
TXO 


XNTR 


No, of taxfilers with taxable returns, 
ONTARIO 


Total income, ONTARIO 

Taxable income, ONTARIO 

Total tax, ONTARIO 

Number of tax returns, CANADA 

Total taxfilers, all returns, ONTARIO 
Total taxable income, all returns, ONTARIO 
Total tax, all returns, ONTARIO 

No. of tax returns, CANADA 


Taxable income, for each personal exemption 
class, CANADA 


Average level of property tax by gross 
income class. 


i 


C.3 CLASSIFICATION OF DATA 


Data is classified by gross income and dependency 


class. 


The family status (dependency) classification is 


as follows: 


Single , no dependents 
¥ one or more dependents 
Married, no dependents 
és one dependent 
two dependents 
5 three " 
u fours»; 
five or more dependents. 


The gross income classes used in the analysis are 
as follows: 


$ Q- 2,500 
2,500 = 3,000 
3,000 = 3,500 
3,500 - 4,000 
4,000 - 4,500 
4,500 - 5,000 
5,000 = 5,500 
5,500 = 6,000 
“6,000 - 6,500 
6,500 - 7,000 
73000 =2 57500 
7,500 - 8,000 
8,000 - 8,500 
8,500 - 9,000 
9,000 = 9,500 
9,500 =- 10,000 
10,000 - 25,000 
25,000 and over. 


Information is aggregated up to $2,500 in all arrays 
where the GREEN BOOK gives a finer breakdown, Similarly, because 
not all arrays break down information between $10,000 and $25,000 


this information is aggregated within the program, 


Appendix D 


DATA BASE 
D.1 SOURCES 
XTRO = No. of taxfilers with taxable returns, ONTARIO 
TINCO = Total income, ONTARIO 
TBLO = Taxable income, ONTARIO 
TXO = Total tax, ONTARIO 
Source: Taxable returns, Table 8, "All returns by Province and 


Income", Taxation Statistics, (Ottawa: Department of 
National Revenue, Taxation, 1970 edition), p.112. 


XNTR = No. of tax returns, CANADA 


Source: Table 2, "All returns by Income Classes", Taxation 
Statistics, op.cit., p.16-35. 


XARO = Total taxfilers, all returns, ONTARIO 
XABLO = Total taxable income, all returns, ONTARIO 
TXO = Total tax, all returns, ONTARIO 


Source: Table 8, Taxation Statistics, p.112. This data is 
classified only up to $5,000 gross income. 


oO 
i] 


No. of tax returns, by dependency class, CANADA 


ys Taxable income, for each personal exemption class, 


CANADA 


Source: Table 7A, “All returns by Marital Status, Dependents 
and Income", Taxation Statistics, op.cit., p.104-107. 


PTX = Property tax by income class 


Results of the Guelph analysis adjusted to a provincial basis and 
extrapolated to the target year of the analysis. 
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bees TITY, £28 
TLSSRPC 

128 COMMON 
132 COMMON 
146 COMMON 
158 COMMON 
169 COMMON 
172 COMMON 
18@ COMMON 
196 COMMON 
205 COMMON 
21% COMMON 
21 


1 COMMON 


220C PROV 
220 FOR 
248C TAX 


268C JAN. 
OR Gs TAX 
286C DEPT 


326C SALE 
332C PROP 


X TRO( 28) , TINCO (28) , TBLO (29) 
TXQ (C20) ,XNTR( 20) 
XARO(20),XABLO( 20) , TAX( 20) 
DC 20 GS i t20,3) 
PNTR(20),ATO( 20) 

STT(2@) ,PTBO( 28,8) 
SM(8.) ,TB( 29,8) 

SD(8) ,SDI (20) 

SEC 2049) 

PTX (29) 

TBS8(20), TBS2(26) 


INCIAL CREDIT ANALYZER 
PROPOSED SALES AND PROPERTY 
CREDITS IN ONTARIO 


SSO ee ee re re ee ree re rs ae ee eee eee ee ee 
oa NR SR Sh ER ee OE NOE EE ned UNO SERENE ORD AED See MD Dey sedis) Taek wos ceees ap oeceee. Ecce ancy aap ot toe eee ee ee 


Av lore BRIAN HULL 
ANU OF TOCAL POLICY BRANCH, 
« OF TREASURY AND ECONOMICS 


SS eee ee ee ee oe 
Re re ree et ee ee ere ee ee mee cee tee ee eee one eee ee ep eee we es oe ee ee ne ea 


S TAX CREDIT -FORMULA~ LINE 3590 8FF 
ERTY TAX CREDIT FORM— LINE 474@ &FF 


364 DATA XTRO,TINCO, TBLO/694@/ 


2 Pec XTRO 
386C TENG 
296C TBLO 
406 DATA TX 
41GC TXO 

426C XNTR 
434 DATA X 
44Ue XARO 


459C XABLO 


469C TAX 
47@ DATA D/ 
4300 9) 
494C 

542C 

512C 

B20C 

B30C 


= NO. OF TAXFILERS WITH TAXABLE RETURNS, ONT. 
TOTAL INCOME, ONT. 
TAXABLE INCOME, ONT. 
(NTR/40*O/ 
pL Ad TAA ONL, 
NUMBER OF TAX RETURNS, CANADA 
eXABLO, TAX /63%G7 
TOTAL TAXFILERS, ALL RETURNS, ONT. 
TOTAL TAXABLE INCOME, ALL RETURNS, ONT. 
TOTAL TAX ALL RETURNS, CAN. 
1623*@B/ 
= NO. OF TAX RETURNS IN EACH PERSONAL 
EXEMPTION CLASS. INITIALLY CANADA 
ADJUSTEBDT POeONT . 
D(I,J) IS A 2@*8 MATRIX WITH "Ju: 
=] SINGLE, NO DEPENDENTS 
J=2 SINGLE, ONE OR MORE DEPENDENTS 


) 


~ 


oats i 


(5 


Wout 


ARC 


nd 


lou oy 


PROCRD CONTINUED 


'540C 


J=3 MARRIED, NO DEPENDENTS 
55OC J=4 MARRIED,I 
560C J=5 MARRIED,2 
570C J=6 MARRIED,3 
5808C J=7 MARRIED,4 
594C J=8 MARRIED,5+ 
600 DATA TI/162%0/ 
6128C Ly = TAXABLE INCME, FOR EACH PERSONAL EXEMPTION CLASS 
620C CANADA 


630 DATA PNTR,ATO/43*@/ 

646C PNIR = RATIO, ALL ONTARIO TAXFILERS TO ALL CANADA 
650C. ATO = NOT USED 

660 DATA STT/20x*0/ 

676C ee = SUM OF TAXABLE INCOME BY INCOME CLASS 

680 DATA PTBO/169*2/ 

694C PIBO” = RAITO, ALE ONTARIO: TAMAR GMa Aun 


106C CANADA TAXABLE 

719 DATA SM,SD/16*37 

720C Sid = SUM OF TAXABLE BY EXEMPTION CLASS 
7136C 5D = SUM OF RETURNS BY EXEMPTION CLASS 
146 DATA TB/160*3/ 

Fie TB = TAXABLE, ONTARLO 

766 DATA SDI/20*@/ 

176C SDI = SUM OF RETURNS BY INCOME CLASS 
189 DATA SC/168*@/ 

T9OBC a = COST OF GIVEN CREDIT BY 

820C PERSONAL EXEMPTION CLASS 

810 DATA PIX/20*@/ 

820C PIX = PROPERTY TAX sGEVEL BY -\NCOMBNGD AGS 


83GC THE INCOME CLASSES USED FOR 1968 BASE DATA ARES 
B40C JP TO $2588 GROSS INCOME: 2.5-3.@(9@0)>: 
B59C 3.9-3.533.5-4.934.0-4.534.5-5.03 


S66C 3-9-5.5%5.5-6.936.9-6.536.5-7.037.0-7.53 

87BC 7.5-8.938.9-8.538.5-9.939.9-9 539 5-103 

880C 19-153 15-20 320-25325+ 
890C N.3.IN THE 1968 BASE YEAR DATA INCOME CLASSES FROM 10-25 


9B9C ARE COLLAPSED INTO QNE CLASS DUE TO DATA DEPICT ENCES. 
910 DATA SNTR,STRO/2*@/ 

928C SNTR = SUM OF RETURNS, CANADA 

934C S TRO SUM OF TAXABLE RETURNS. ONT 

940 DATA STBO,SINO,STO/3*@/ 

952C 3 IBQ SUM OF TAXABLETNCOME, ONT. 

964C SINO SUM OF TOTAL INCOME, ONT. 

97BC oe 80) SUM OF TOTAL TAK ONT: 

980 DATA DELS,DELM,1SW2/3x*@/ 

996C DELS = INCREMENT IN SINGLE EXEMPTION, NEW BILL 

192GC DELM = INCREMENT IN MARRIED EXEMPTION, NEW BILL 

191@ DATA CSUM,TSC ,HSUM/3*@G/ 

1429C CSUM = TOTAL COST, PROPERTY TAX CREDIT 

1039C £oG = TOTAL COST, SALES TAX CREDIT 


if 


io wy ie 


PROCRD CONTINUED 


1d406C HSUM«) -@- TOTAL NO. OF HOUSEHOLDS 

Moe> DATA) TBS870 3 sOPS46499,.649,..731 .« 134,019 3 ws 1035 Boe, woes oe 
MeAOR. (4.858%, 8024 Pore. o 92, .092 4.963, 0,0.1. 8677 

WAT DATA TRS248) 2568) 2097S S69T4. TONS 79) 9833, ¥833, 0889 fe oeo eae ees 
PeeeR a GO225 BOOS Rey oer tas OOo yl COSA ys le es 

1350 100 FORMATCA6) 


iGoe PRINGTSDATARIUE V4 

1976 READ 188,FN 

LoS0 CALL ORPENPCT, FAD o> 

1390 READCI, )(XTRO(I) I= heed 

[OG READC 4) 1 CF INCOM Ta1,20) 

[112 READ(1,) CTHLOCT) 4 1=1 5290) 

Lo2O READCUS HoT KO CL), f=). 20) 

bP30 READCISY AANTRCI) fet, 20) 

1)4@ READC1T,) -(XAROCI),f=1,6) 

MSO READCT,) CXABLOC Lite, 64 
60 READE bs rae yo p=1 40) 


1 
| 
} 
78 -D0a VOR Sele 
18@ READCI, Weceenre ey eee 
192 15@ CONTINUE 
200 DO 168 J=1,8 
PAOCB END CERT TCL oO) 21,28) 
220 168 CONTINUE 
22Oi PERO Pe PIX (Lyte! 20) 
248 CALLCLOSEF(1) 
250 SW=2 
260 ISW2=2 
27@ ISW3=2 
272 ISW4s] 
280C Si. TABLE SWITCH- THE HIGHER THE VALUE THE FEWER THE 
298C . TABLES 
34BC ISw2 1 -OLD Thee pie: 

Pr eNes TAX BILE 

I--BASE YRS 2- 19723 B= TOS. 
1 - ADJ. FOR THE CHANGED PERSONAL: EXEMPTIONS 
2 ADJ. TAXABLE INCOME BY GITAN RESULTS 
330. 290. FORMAT£L2%,5¢F8.2.2x)) 
134G. 210 “FORMAT(2%.,5(F12.2,3X)) 
1352 212 FORMAT(2X ,10(F8.2,2X)) 
1366 213 FORMATC//) 
137@ 214 FORMAT (2X,8(F12.2)) 
1380 215 FORMAT(2X,"SINGLE", 18X,"MARRIED") 
1390 216 FORMATC2X WY NO. OF DEPENDENTS") 
aaa 217 FORMAT (RX. "OO, LIC He x Te TK et eT eee ies 
ih (Xo VST") 
1420C ADJ. OF NO. OF TAXFILERS AND DEPENDENTS 
1430C 
1440C 
145% DO 344 I=1,22 
1460 SNTR=XNTRC1I)+SNTR 
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PROCRD CONTINUED 


1470 STRO =XTROCI)+STRO 

1488 390 CONTINUE 

1493C 

1580C 

15.108C 

1520 DO 358 [=7,29 

1530 358 XAROCI)=XAROCI)+XTROCT) 

1544C 

kBS8C 

156¢ YAROCIT)= XAROCT 7) +XAROC18)+4+XAROC19) 
1574 XARO( 18) = 

1586 XAROQ( 19 )=2 

1598C 

162@ XNTRO17)=XNTRO17) +XNTRCI8)4+XNTRO19) 
16.10 XNTIRC18)=@ 

1620 XNTRC19)=@ 

163¢C 

heat DO295 YGeHl.c 

POs) Ti tee eer eee) 
1634 295 CONTINUE 

1636) TBLOC ia SI BRO CT Ve BLOM e+ BLOC To) 
1649C 

16598C 

1668C CANADA TO ONTARIO ADJUSTMENTS 

1678 00389 I=1,24 

1689 PNTRCI)=XAROCT)/XNTRCT) 

1696 386 CONTINUE 

L700 LEXSNN eer GO. 38 | 

L74o PRINT AWADIS FACTOR, WAXRALERS CANADA, TOON 1"! 
1726 PRI Neve Nore ee ees SS eS te Sere ese 
1732 DO3S82 I=1,20 

1740 PRINT 212,PNTR(1) 

1758 382 CONTINUE 

176@ 331] CONTINUE 

“ho PRINT 213 

VBS TECSN OTe) GO: TO 388 

1799 PRINT,"NO.QF TAXFILERS, ves 
1BGo PRINT, Five Yo nsf reef felon fons fre nealeee orem 

1816 PRINT," BASE YEAR*® 

1820 D0 386 T=1,20 

heee PRIN. ees Ci ls =a 

1850 386 CONTINUE 

1868 DO387J=1,8 

1873 DO387 I=1,29 

B86 SDC J) =SD(J)4D¢1,J) 

1899 3387 CONTINUE 

EO PRINTZi 2.1 SDtJ) ,.J=!l 3.) 

1918 388 CONTINUE 

1920 PRINT 213 

1936 DO 39% I=1,2¢8 


PROCRD CONTINUED 


1949 DY) 390 J=1,8 
19oe) DCL. J0=Dd Lod leit 1) 
Lem: Dil) =DiLiadie. see! 
1978C -2989 ADJUSTS ESTIMATED TAXFILERS TO OBSERVED ONTARIO TOTALS 
1986 IFC ISW3.NE.2)S0T0391 
LPP D blow yD Ce) * 1. PESOS 
eUOee b. 08693 ADJUSTS. TAXFILERS: TO EXPEC. TEVELS 1972 
261@C IN ONTARIO (JAN.4,.1972) 
252% 391 CONTINUE 
20930 LFCISW3.NE.3)GOTO392 
2640 DOL.J)=DC L,I) «1.2512 
2UB0C }e25V6rADJUSTS TAXFTUERS TOUEXPEC. 1973 
20698 392 CONTINUE 
2470 390 CONTINUE 
288SC 
2898C 
2NOO- 00425. d=) 420 
2549 (bs 425.351 68 
120" SPL Clo =Spis 1) +001, 93 
139 425 CONTINUE 
140. Ir(SW.OL.4) GO. JO. 426 
158 PRINT 213 
2152 PRINT213 
22be PRIN 243 
2160 PRINT," XTRO X ARO bes Bk Fa 
2176. PRINT,* SS=5 SEES =a 
2180 DO 436 I=1,29 
ZV PRINT |2he, ¥ TROGL) ..MAR@L1o. SO deCl 
2200 436 CONTINUE 
2218 426 CONTINUE 
2226 PRINT 213 


2240C ADJ TAXABLE INCOME 

2254 DO 540, 1=1,28 

2266 STBO=TBLO(T)+STBO 

227@ SINO =TINCOCI)+S5I NO 

2288 STO =TXOCI)+S70 

2292 5@8 CONTINUE 

2300 IF(SN.GT.4) GO TO 5%5 

231@ PRINT," TOTAL TAXABLE ,ONT",S TBO 
2326 PRINT,"TOTAL INCOME,ONT®,SINO 
2330 PRINT, "LOTAL TAX, ONT. 5510 

2340 505 CONTINUE 

23500 

2369 PRINT213 

2370C 

2386 DO 519 I=1,28 

aaa BITC Id=TT(] «) aed, 234i eel 
SAAR ATICI, St LIC1.6)4+11 (1, / ett) 
2414 51@ CONTINUE 


 pROCRD CONTINUED 


2A20: (OBA del 2 

2434 DO511 J=1,8 

2440 PIBOCT,J)=IBLOCII/STI (1) 

2456 511 CONTINUE 

DA6G IF (SW.GT.5) GO TO Sho 

2402 PRINE 243 | 

2464 PRINT 213 

2470 PRINT.“ ADJ.FACTOR , TAXABLE INCOME,CANADA TO ONT." 
2480 PRI NT : NW eee ee ee SS SS ST SSS ese essere ss 
2499 DO 512 I=1,20 | 

2500 PRINT 2) 24rd ns ie3) 

2510 512 CONTINUE 

2526 516 CONTINUE 

2539 DO 515 [=1,20 

2540 SMC1J=SMCI DETECT 9 

2558 SM(2)=SM(2)+TTC( 1,2) 

2566 SM(3)=SM(3)4+7TTCI,3) 

9570 SM(4)=SM(4)+TT(1,4) 

2580 SM(5)=SM(5)+TT(1,5) 

2598 SM(6)=SM(6)4+TTC1, 6) 

2608 SMUT) SSMCIOt+T ICL.) 

2610 SMCS) =SM(8)47TT( 1,8) 

2628 515 CONTINUE 

2600. VRtSn Gl .6) (GOe Te) 322 

2646 PRINT213 

2642 PRINT 233 

2658 PRINT, "TAXABLE INCOME,VERTICAL SUM ,CANADA" 

2660 PR 5 ace Wi ee ee ee a SS Se SS SS ee 

ZOU PRO ee Sion Ci seh es } 

2688 PRINT213 

2690 522 CONTINUE 

2695 SUM=/4 

2766 DO 525 I=1,28 

2116 DO 525 JH#1,8 

2ge0 BE Tee Tot JRO Lb) 

Ci S0 TRUE Joe iet t,o) et G34 

2735 SUM=SUM+TBC I,J) | 
2748C 1.@831.1S THE NORMALIZATION FACTOR WHICH ADJUSTS EST. TO ACTUAL TAX 
21o@ IrCions Ne. 2) GOTOS27 

2100 TRACI, J) =1801,J5)*14 $0965 
2778C 1.76845 IS THE EXTRAP. OF ONTARIO TAXABLE INCOME TO 1972 (MAR.13,7 72) 
27 ac da ts COMPOSED, DF THOUPACTORS® 

BE PRE 1. 1.44717, THE INCREASE IN GPP OVER THE INTERVAL 


Ey Le PL 0.2217, TH INCREASE TM TAXABLE AS Ao 2 OF 
2774C ACCRUED INCOME OVER THE INTERVAL (.,56014/.419%4) 
rad hee UNDER THE PROPOSED TAX SYSTEM 

2788C 

Zk 

2782C 


2798 527 CONTINUE 
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2849 
2845 
2858 
2852 
2854 
2860 
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2886 
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29008 
2961 
2982 
2983 
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2926 
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2956 
2966 
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2988 
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3460 
BU 12 
3420 
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346) 
3262 
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3964 
3065 
3466 
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PROCRD CONTINUED 


IF CISW3.NE.3)GOQ0T0528 
JB, ST Ran. Jon tats 
1.9313 ADJUSTS TAXABLE TO EXPEC 1973 
528 CONTINUE 
525 CONTINUE 
PRINT ,SUM 


IFCSW.GT.6) GO TO 532 

PRINT 213 

PRINT 213 

PRINT,"NO. OF TAXFILERS ,ONTARIO" 
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PRINT," 

DOkOSo - tate 20 

PRINT 212,(D(1,J),J=1,8) 

536 CONTINUE 

DO. 5290) J=1 ,8 

SD(J)=SD( J) *@ 

529 CONTINUE 

DO463J=1,8 

DO4OA1ISt,20 

SD(J)=SDCJ24+D(1 J) 

402 CONTINUE 

SNTR=2 

DO481 J=1,8 
NTR=SNTR+SD(J) 

44) CONTINUE 

PRINT, FO TAL" . 

MUL aa 2 SD Ca) Jee 

PRINT 2s 

532 CONTINUE 

IFCSW.GT.6) GO TO 536 

PRINT,"TAXABLE INCOME, ONTARIO" 

PRINT |" sss255 2222225255 522===" 

PRINT,® OLD BiEL™ 

DO’ S35 l=], 28 

PRINT21.2, CTBCI,J) ,J=1,8) 
535 CONTINUE 

536 CONTINUE 

DO 538 I[=1,20 

DO S37. det <8 
ATOCI)=ATO(1)+TBC( I,J) 
527 (CONTINUE 

538 CONTINUE 

DO 539 T=1,29 

PRINT21@,ATOCT) 

539 CONTINUE 

DELS=52@, 

DELM=85@. 

DQ543 [=1,2¢ 

DO 543 J=1,8 
TS(1,J)=TB(1,J)*1 900, 


PROCRD CONTINUED 


3120 TBCT,J)=TBC1,J) *1200. 
3130 DC(I,J)=DC1,J) «1040. 
3140 543 CONTINUE 
3150 IFCISW2.NE.2) GOTO549 
3155 LTFCISW4.NE.1) GO 10: 91d 
3168 PRINT213 
3170 PRINT,"TAXABLE INCOME ,ONTARIO" 
3186 PRINT,” meses SS sr 
3190 PRINT," NEW BILL 
3206 D544 T=1,20 
3219 DO 544 J=1,2 
3220) TRG, IP SIR Cr, J)-(DELS*D(I, J) 
3236 IE(TB(1, Site le O)TBCI, J) = 
3248 544 CONTINUE 
3252 DO 547 T=1,28 
3268 DO 547 J=3,8 
3270 TRACI Jyeiatie = (DELMADCL, J) 
3280 TRUTA GP ah) be.e) fac] J=e 
3296 547 CONTINUE 
3340 DO 548 By aod 
3318 DOQ548 J=1, 
Boe0 “Pits, ec J)/1BO9200. 
3339 548 CONTINUE 
3346 DO554a [=1 ,28 
335@ PRINT212, Omlee J), J=1,8) 
3366 55d CONTINUE 
3370 PRINT 213 
331+ GO TO SA? 
3372 918 CONTINUE 
Soho TeUISWS.Ne.1) GO Ty) 935 
3374 DO O15? Pal, 20: 
3375 DO.914 J=1 
ore TAO. Ste FIST RSS4 1) 
3371 914 CONTINUE 
BA 1B 9 i CONTINUE 
3379 GO TO 999 
3386 935 CONTINUE 
Scene LF Ciswie NEs2) GO 10 350 
3382 DO 916 [=1,20 
Jono) De Git det, 3 
Saee ati woe IB Gl adie IB S204) 
2900 FAT “CONTINUE 
8386 916 ‘CONTINUE 
33e7C 
3388 PRINT213 
3389 999 CONTINUE 
3399 DO 947 L=1,24 
3391 DO 947 J=1,8 
sore Lill, J) =PRCl J) 71 eee. 
3393 947 CONTINUE 
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394 PRINT,"TAXABLE INCOME, ONT." 
3395 PRINT "ssssssassaessessec i 


3396 PRINT,"NEW TAX ACT,GITAN METHOD" 
3397 00959 1=1,22 

BSE PRINT AA ETE 1 Jd}, J21 28) 

3399 958 CONTINUE 


3485 549 CONTINUE 

3426 DO549 I=! ,20 

3497 DO 548 J=138 

SaN0 GO TO 69692 .603, 604 695 596,697 603) J 
3420C .-4Y/ ‘SINGLE @,13 MARRIED 1-6 
3434 6@1 XY=@ 

3444 GO TO 619 

345% 692 XY=1 

3469 GO TO6IG 

3474 643 XY=1 

3486 GO TO619 

3499 644 XY=2 

COTO ere 

645 XY=3 

UO TS ae 

34 636 XY=4 

3546 GO TO 612 

3550 607 XY=5 

S396 GO 7) 619 

3578 6038 XY=6 

3589 616 CONTINUE 

300 SCC 1S JYSC leery aD CPJ e1S, 

@oee SCC, JIeSC(1 5A Iai 

Seig TRCSC UL Ja ale esc Rie 

9520 529 CONTINYE 

622 PRIBL 213 

3624 PRINT 213 

S620. PRINT 213 

26s PRINT2IS « 

3534 PRINT,"LOTAL SALES TAX CREDIT BY DEPENDENCY CLASS" 
3644 DP ' NT, Lae sa SSS SS SS SSS SS SSS Ss SS Se ee eee at 
365% LE(ISN2.60.2) PRINT,” (NEW SILL)" 
366@ PRINT 215 

3670 PRINT 216 

3680 PRINT 217 

3607 09 545 leh. 2d 

“eg PRINT 214 5¢5001 ,J) 12109 

3718 545 CONTINUE 

3728 D546 J=1,8 

373% 546 SHMCJ) =SKC I) 40 

3740 DO0654 J=1,8 

3758 00652 1=1,20 
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3764 658 SMC J)I=SM(J)+SCCI .J) 

ali’ PRIS ae Ne 

S1GwW PRINT oie Shas ee) 

S10 PRINT ee 

3800 PRIND AVERAGE COSP OF SALES TAX CREDIT 
3810 P® CNT, NSS SS SSeS Se Sees mee ee eee ee 
3020 PRINT 275 

3830 PRINT2USG 

3840 PRINT217 

3858 DO0934 I=1 20 

3868 DO O34 JH. 

20 SCC SeSe Daa 

3389 934 CONTINUE | 

3890 DO 936 I=) ,20 

SURO PRI CISA Sel J) ede). 8) 

391@ 936 CONTINUE 

3920 YO oS Ss Salis 

3r3a@ 665 P5C=7SCrencs) 
3949 PRINT 213 

3958 PRINT,"REVENUE COST 0 
3960 PRINT, "!-~---------- ~~ -~+~----~-- iH 

2910 TeUTSN2 SE. 2) Deira (NEW BILL)" 

3988 PRINT 214,7TSC 

3996 PRINT 213 
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441GC HOUSEHOLD DATA 
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49710 656 CONTINUE 

4980 92=.4 

4090 93=.5 

4169 94=,6 
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4120 96=.95 
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I. INTRODUCTION 


The Guelph Tax Analyzer Model is an addition to the 
growing number of computer simulation models employed in the 


development and testing of proposed and legislated modifications 


to the personal income tax structure. Since 1969, tax analysis 
through computer simulation has become a routine element in the 


process of policy development and monitoring carried on within 
¥: 
the Ontario Treasury. 


The Guelph Model was designed for the purpose of test- 
ing alternative approaches to the integration of property taxes 
and income taxes through the device of tax credits. It is unique 
in its integration of property tax and income tax records. it 
examines the detailed incidence of property taxes and the re- 
distributive effects of alternative tax credit formulae. For 


purposes of designing the property tax credit, the incidence of 


1 The earliest models in this field were: John Bossons, "A General 
Income Tax Analyzer", Royal Commission on Taxation, Staff Study 
25, (Ottawa: Queen's Printer, 1967) and Joseph A. Pechman, "A 
New Tax Model for Revenue Estimating", in Alan T. Peacock and 


Gerald Hauser, editors, Government Finance and Economic Develop- 
ment (Paris: 0O.E.C.D., 1965). 


ae Analysis of the Federal Tax Reform Proposais, Ontario Studies in 
Tax Reform 1 (Toronto: Department of Treasury and Economics, 


1970): Effects of Ontario's Personal Income Tax Proposals, 
Ontario Studies in Tax Reform 2 (Toronto: Department of Treasury 
and Economics, 1970): and Tax Reform and Revenue Growth to 1980, 
Ontario Studies in Tax Reform 4 (Toronto: Department of Treasury 
and Economics, 1971). 


property taxes was examined for the principal income recipient 

in each household. Further examination of property tax incidence 
was done for household income and by age group. This extensive 
analysis of the incidence of property taxes has provided valuable 


information on the pattern of housing consumption. 


The large variance in property tax level makes knowledge of 
the range of relief which a particular credit formula would make 
available to heads of household with similar levels of current 
income espectially important. The Guelph Model marks a further 
step towards a capability to anlayze the total burden of taxes 
by income class along the lines of Richard Musgrave's path- 


3 
breaking work of 1951. 


5% Richard A, Musgrave, "Distribution of Tax Payments by Income 
Groups: A Case Study for 1948", National Tax Journal, March, 
1951, pp. 1-53. Such an application of the computer simula- 
tion approach is proposed by Joseph A. Pechman in "A new Tax 
Model for Revenue Estimating", op. cit. p. 240. 


LES DESCRIPTION OF PROGRAM _ 


The Gueiph Analyzer Model is a computer model designed 
to examine the incidence of residential property taxes in Guelph 
and test the redistributive effects of alternative tax credit 


formulae. 


The model uses the individual tax records for residents 
of Guelph in 1968. These were stored or computer tape in the 
provincial master file and matched with the corresponding assessment 
records of the City of Guelph. The Guelph assessment information was 
recorded on computer tape following complete re-assessment at market 
values of the residential properties in the HaHPEpaTLEe The joining 
of an individual income tax return to the corresponding assessment 
record was done by a computer program which ensures the complete 


anonymity of the individuals whose records are used in the analysis. 


Income taxes are examined under the provisions of the 
Income Tax Act as it existed up to December 1971 (omitting the special 
in-year tax reduction of 3 per cent) and under the new tax act which 
came into effect January 1972. The analysis is ddiftic Pde for 1968, the 
year for which the data is derived and for 1972. There is no dis- 
tinction in the analysis between properties which are owtle¥ occupied 
and those which are rented. The results indicated both the in- 
cidence of property taxes and the impact effects of the property 
tax credit. The final incidence of the property tax credit depends 


on how housing prices are affected by the change from a uniform 


exemption per household to tax relief dependent upon both income 
be 
and property taxes paid. 


The method used in this study is analogous to that employed 
2 
in earlier studies in this series. In examining the current tax 


system, the model allows for the change in personal exemptions, the 
major alternation in the tax base between it and the former system. 
The model algo allows for the change in the dividend tax credit but 


because of data limitations in the master taxfile, does not include 
3 
other modifications in the tax base. 


is Under conditions where the withdrawal of the basic shelter 
exemption reduces the price of supermarginal houses propor- 
tionately to the decrease in price of marginal houses, the 
final incidence of the removal of the basic shelter allowance 
is on the occupier, whether he is the owner or the tenant. 
Quantitative assessments of the difference between the final 
incidence of a tax charge on owners and tenants have not been 
attempted. See Herbert A. Simon, "The Incidence of a Tax or 
Urban Real Estate", page 428 in Richard A. Musgrave and Carl 
S. Shoup, Readings in the Economics of Taxation (Homewood: 
Richard Irwin Inc., 1959). 


is See: Analysis of the Federal Tax Reform Proposals, op. cit.; 


Effects of Ontario's Personal Income Tax Proposals, op. cit.; 
and Tax Reform and Revenue Growth to 1980, op. cit. 


3. In the analysis of the current tax system, the differences 
between it and the former system which have not been taken 
into account are: the standard employee expense allowances; 
deductibility of U.I.C. contributions and taxation of U.I.C. 
benefits; attribution of employee medical contributions and 
sickness and accident benefits from private plans; the changed 
definition of medical expenses; and the inclusions of scholar- 
ship and fellowship income and the special student allowance. 


The Data Base 


. In 1968, there were 15,407 residential properties in 
Guelph. In the match of income tax and property assessment re- 
cords, it was possible to identify 8,779 of the properties and 
assign to them the tax returns of the occupants. For about 3,235, 
identification was impossible. These properties were not labelled 
by an individual name but were described as vacant lots or vacant 
dwellings, called “owner-occupied", owned by companies or lots 
"owned by listed tenants". The balance of 3,393 could not be 
matched because surnames on the income tax and assessment records 
did not correspond for a given address. This group accounts for 
about 22 per cent of the total. As about a fifth of all households 
change address every year, most of this mismatch is due to removals 
and some is caused by inconsistent spelling of names between property 
assessment and income tax records. As both owner-occupied and rental 
accommodation are assessed at market value in Guelph, this study does 
not distinguish between the two forms of tenure. The matched records 


include those for both owner-occupied and rented accommodation. 


The Extrapolation from 1968 to 1972 

In extrapolating the 1968 data base to 1972, the simplest 
procedure was used. The master taxfile from which the Guelph income 
tax records are taken contains information in a more summary form 
than does the intensive sample used for compilation of Taxation 


5 
Statistics. 
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4. Blue Book: 1968 Summary of Financial Reports of Municipalities 
(Toronto: Department of Municipal Affairs, 1968), page 1. 


ae Taxation Statistics. Ottawa: Department of National Revenue: 
Taxation, 1970 Edition, 


The detailed information of the intensive sample makes possible 
the relatively complex extrapolation procedure employed in Tax 
Reform and Revenue Growth to 1980. However,. the intensive sample 


does not include surnames and addresses with the records. 


In the extrapolation used in this study, the number of 
taxfilers and properties is increased by the estimated increase in 
the number of taxfilers in Ontario between 1968 and 1972. Ina 
similar fashion, income of each taxfiler is increased by the 
change in average income in Ontario between 1968 and 1972. The 
forecast used for 1972 was under-taken by the Ontario jieadetheylas 

Property taxes in 1968 are calculated by applying the 
1968 mill rate for Guelph to the sum of assessment for land and 
improvements for each unit. Where applicable, the special farm 
mill rate is applied. The total rate for Guelph in 1968 was 27.7 
mills. This included a mill rate of 16.3 for general ey Oui/ 
for elementary schools and 4.7 mills for secondary schools. The 
special farm rate in 1968 was 24.7 mills. In 1968 residential property 
was re-assessed at market values in Guelph. It is to this assessment 
roll that the 1968 mill rate is applied in the study as the purpose 
is to examine the incidence of property taxes in a situation where 
the discrepancy between assessed and market values is at a minimum. 
For the 1972 analysis, the study assumes the 1971 mill rate of 30.6 


remains unchanged in 1972. 


6. Canadian and Ontario Economic Forecast (Toronto: Department 
of Treasury and Economics, Fall, 1971). 


Distributions by Age Group and Family Income 


Tests for differences in the incidence of property taxes 
among age groups and for alternative definitions of income are 
possible within the Guelph analysis. The population of principal 
income recipients in each household is divided into three age 
groups: Those less than 35 years of age in 1968, those between 35 
and 64 years of age and those 65 years of age and over. The 
incidence of property taxes and the average value of the property 
tax credit is examined for each group. The incidence of property 
taxes on the entire group of households is also examined for a more 
inclusive definition of household income; that is, where the name 
of more than one income taxfiler in the household also appears on 
the property assessment record, household income is the sume of 


these incomes. 
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ni pC APPLICATION OF THE PROGRAM TO THE ANALYSIS 


The program has been developed and run on the PDP 10 of 
Dataline Systems, Toronto, The certain matches are stored on one 
reel of computer tape, the total set of matches, certain and 
doubtful, on two, The criteria by which income tax returns are 
selected for analysis are set within subroutine XTAX. 
Analysis of Principal Income Recipients 
XTAXA = Certain matches 
XTAXB = Total matches 
Accummulated (Family) Income 
XTAXD - Certain matches 
XTAXC - Total matches 
The age group subset analyzed is also specified in sub- 
routine XTAX. The extrapolation requires the setting of switch 


IEXTRP in subroutines, XTAX, XACUM and XADJ. The switch is set 


arn" for "1566 Vand, 2! for 1972. 


The first experimental run of income tax data alone was 
made September 13, 1971. The first full run of income tax data 
alone, October 9 and the first full run of matched data November 30, 
1971. The extrapolation was added January 16, 1972. The formule 
adopted for the Ontario Property Tax Credit Plan was first tested 


March 8, and the final runs were made May 8, 1972. 
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Appendix A 


TABLES GENERATED 


A.1 SUMMARY 


The Guelph Analyzer program examines matched income tax 
returns and property assessment rolls for residents of the City of 
Guelph. The 1968 income tax returns for residents of Guelph were 
selected from the Master File of Ontario income tax returns. The 
Master File contains summary information for each bak return filed 
within Ontario. Residential properties in Guelph were re-assessed 
in 1968 at market value. Storage of the income tax and assessment 
data on computer tape made possible a matching of records which 
avoided the necessity of visual inspection. The computer program 
which matched the income and property tax data is described in 


Appendix G. 


The Guelph Analyzer computes the incidence, and distribu- 
tion of property taxes, the incidence of the combined income and 
property tax burden, and the implications of alternative formulae 
for the relief of the property tax burden. The model reads each 
matched record in sequence. Each record is checked to determine 
whether it fits the selection criteria of the particular run. Thus, 
the data may be analyzed by age group, family income, income of 


principal income recipient and so on. 


A.2 TABLES 


I GENERAL PARAMETERS 


1. Run identifiers. 


Location: Guelph 

Run No.: 

Run Year: (Year of data base or extrapolation) 
Run Date; 


2. Income tax rate schedules. 


Old rate schedule 
New rate schedule 


3. Property tax classes 
(Up to 30 classes) 


4. Income tax classes 
(Up to 30 classes) 


5. Property tax credit assumptions. 


Basic credit: 

Credit as % property tax: 
Credit as % assessment: 
Credit as % income: 
Maximum credit available: 
Average assessment: 


II GENERAL TABLES 


The format of these tables provides for a matrix of re- 
sults of up to 30 columns of property tax classes and of up to 30 


rows of income classes. 


Number of taxfilers 

Total accumulated income 

Average gross income 

Average property tax paid 

Average income taxes paid, old tax structure 

Average taxes paid, new tax structure 

Average disposable income, new tax structure 

Average disposable income as a per cent of gross in- 
come, new tax structure. 


On AH & WD AD 


9. Average property tax credit, new tax structure 

10. Total accumulated income tax, old tax structure 

ll. Total accumulated income taxes, new tax structure 

12. Total accumulated property tax credit, old tax 
structure. 

13. Total accumulated property tax credit, new tax 
structure. 


IIT SUMMARY TABLES 
Summary tables classify the data by income class only. 


1. Summary tax deduction data. 
(i) Total accumulated income 
(ii) Total accumulated deductiors 
(Lit) Total accumulated medical receipts 
(iv) Total accumulated donations 


2. Summary tax exemption data. 


9) Total accumulated personal exemptions, actual 


data. 

(ii) Total estimated personal exemptions, old tax 
structure. 

(iii) Total estimated personal exemptions, new tax 
structure. 


(iv) Average estimated exemptions, old. tax structure. 


3. Summary dependency data. 


(i) No. of children under 16. 

(ii) No. of children over 16. 

(fii) No. of taxfilers, 

(iv) No. of taxfilers filing as single. 


4. Summary tax credit data. 


(1) Total credit, old tax structure. 
(ii) Average credit, old tax structure. 
(iii) Total credit, new tax structure. 
(iv) Average credit, new tax structure. 


5. Summary tax data. 


(i) Total taxes, old tax structure. 
(ii) Average taxes, old tax structure. 
(iii) Total taxes, new tax structure. 
(iv) Average taxes, new tax structure. 


6. Incidence of property tax credit. 


(1) Credit % gross income, old structure. 
(ii) Credit % income tax, old structure. 
(iii) Credit % gross income, new structure. 
(iv) Credit % income tax, new structure. 


7. ‘Incidence of income taxes. 


CL) Income tax % gross income, old structure. 

(ii) Income tax less credit % gross income, old 
structure. 

(iii) Income tax % gross income, new structure. 

(iv) Income tax less credit % gross income, new 
structure. 


8. Dividends 


(1) Total dividends from taxable, Canadian 
companies. 

(ii) Old dividend tax credit. 

(iii) New dividend tax credit. 


IV STATISTICAL SUMMARIES 


1. Median property class by income class. 

2. Median income class by property class. 

3. Mean property tax by income class. — 

4, Standard deviation, property tax by income class. 

5. Average disposable income - by property class, gross 
income less income taxes. 

6. Standard deviation, average disposable income. 

7. Average disposable income - by income class, gross 
income less income taxes. 

8. Standard deviation, average disposable income. 

9. Average disposable income -by income class, gross 
income less property and income taxes. 

10. Standard deviation. 

11. Average disposable income - by income class, gross 
income, less tax plus credit. 

12. Standard deviation. 


Appendix B 


PROGRAM OUTLINE 


B.1 SUMMARY 


This appendix presents an outline of the important 
assumptions and procedures incorporated in the Guelph Analyzer. 
It presents the income tax rate schedule used in the old and new 
tax structures, the extrapolation procedure and the method used 
to derive dependency characteristics from reported levels of per- 


sonal exemptions. 


B.2 INCOME TAX STRUCTURES 


The income tax schedules employed in estimating the in- 
come tax burden under the old and new tax structures are taken 
from: Clarkson, Gordon and Co., Tomorrows Taxes: An Analysis of 
1971 Tax Reform Legislation as Contained in Bill C-259 (Toronto: 
Clarkson, Gordon and Co., August 1971) p.15. This schedule is re- 
produced as Appendix Table B.1. The 1971 rate schedule does not 
include the in-year tax reduction introduced by the federal and 
Ontario authorities. The analysis of the new tax system within 
a 1972 environment does not include the increase of the special 
old age exemption from $650 to $1,000 as introduced in the federal 


budget of May 8, 1972. 


The analysis under the new tax act takes into account 
the major modifications to the tax base, the changed exemptions 
for married, single, and old people. It also takes into actount 


the new dividend tax credit. 


The analysis under the new tax act does not take into 
account: the standard employment expense allowance, the new treat- 
ment of top employee benefits, the deductibility of U.I.C. contri- 
butions, the taxation of 0U.1.C. benefits, the attribution to em- 
ployees of employer medicare contributions, sickness and accident 
benefits from private plans, the inclusion of scholarship and 
fellowship income, and the special student allowances, as wedl as 
the changed definition of medical expenses. The analysis also 
excludes effects on the personal deductions due to the increase in 
the limit on contributions to registered pension plans and deferred 


profit sharing plans to $2,500 from $1,500. 


The combined effect of all modifications to the tax base 
listed above, with the exception of the capital gains tax and the 
increased limits on contributions to registered pension plans, is 


tested for the aggregate Ontario situation in the model “PROVCRED". | 


1. Brian Hull, PROVCRED: Manual for the Analysis of the Revenue 
and Incidence Effects of Property and Sales Tax Credits in 
Ontario, op. cit., Appendix B.2 
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Table B.1 


1977 AND 1972 PROPOSED RATES OF TAX APPLIED TO TAXASLE INCOME 


1971 (note 1) 


Taxable income bracket 
boners ey a tela glean 


$ 0 
500 
1,000 
1,750 
2,000 
3,000 
4,000 
5,000 
6,000 
7,000 
8,000 
9,000 
10,000 
11,000 
12,000 
14,000 
15,000 
24,000 
25,000 
39,000 
40,000 
60,000 
90,000 


125,000 — 


225,000 
400,000 


NOTES: 


1, The 1971 tax schedule reflects the proposed reduction of the 3% surtax to 114% (on tax in excess of $200), includes the 4 AS. 


$ 500 
1,000 
1,750 

~ 2,000 
‘ 3,000 
4,000 
5,000 
6,000 
7,000 
8,000 


9,000 - 


10,000 
11,000 
12,000 
14,000 
15,000 
24,000 
25,000 
39,000 
40,000 
60,000 
90,000 
125,000 
225,000 
400,000 


up 


Tax on 


lower limit 


$ 0 


20 


120 

285 

341 

583 

836 
1,119 
1,403 
1,667 
Pe 
2,236 
2,541 
2,896 
258 
4,063 
4,469 
8,580 
9,037 

- 16,142 
16,650 
27,813 
46,083 
69,174 
140,224 
273,443 


Tax rate . 
on excess 


4.00% 
20.00 
22.00 
22.24 
24.27 
25.29 
28.33 
28.33 
26.39 
26.39 
30.45 
30.45 
35,53 
35.53 
40.60 
40.60 
45.68 
45,68 
50.75 
50.75 
55.83 
60.90 
65,98 
71.05 
76.13 
81.20 


1972 (note 2) 


Tax on 


lower limit 


$ 0 
110 
227 
412 
474 
734 

1,007 
1,280 

5 i 
1,878 
2,203 
2,528 
Zoe 
3,230 
3,633 
4,439 
4,894 
8,989 
9,496 
16,594 
iF, tas 
28,333 
46,663 
68,048 
129,148 
236,073 


Tax rate 


On excess 


22.1% 


23.4 
24.7 
24.7 
26.0 
aie 
Ais 
299 
29.9 
LEE, 
k FRee 
se 
35.1 
40.3 
40,3 ~ 
45.5 
45.5 
50.7 
50.7 
S52 
eee | 
61.1 
61.1 
61.1 
61.1 
61.1 


Id age 


security tax and the 2% social development tax (on taxable income in excess of $1,000) and the revised rates proposed to be ap- 


plicable to 1971 taxable incomes of less than $3,000. It also includes provincial tax at 28 % of federal basic tax. 


2. The 1972 tax schedule includes provincial tax at 30% of federal tax. 


OA a a a 


B.3 EXTRAPOIATION PROCEDURE 


The extrapolation of the analysis from the 1968 data 
base is undertaken with the very simplest possible procedure. 
The number of taxfilers between 1968 and 1972 increases at the 
level projected for Ontario in the GITAN analysis. The number 
of taxfilers in each income, dependency class cell is increased 
by this factor. Between 1968 and 1972 the number of taxfilers 
in Ontario is estimated to increase by slightly more than the 


national average. 


Income in Ontario is assumed to change between 1968 
and 1972 by a factor which adopts the forecast performance of the 
Ontario economy in 1972.1 Taxable income in Ontario increases 


more rapidly than income itself and this is allowed for in the 


analysis. . 
1972/1968 

Increase in total income 1.44717 

Increase in no. of taxfilers 1.18893 


The extrapolation procedure for the economic environment 
used in this analysis is the same as that used in the Provincial 


Analyzer, "PROVCRED". 


The mill rate applied to the re-assessed 1968 data is the 


actual rate for 1968 taxes. However, it should be noted the new 


1. Canadian and Ontario Economic Forecast (Toronto: Department 
of Treasury and Economics, Fall, 1971). 


Table 8.2 
OLD TAX SYSTEM 


ESTIMATION OF FAMILY STRUCTURE FROM TOTAL 
PERSONAL EXEMPTION CLAIMED 


Personal No. of No. of Married 
Exemption $300 $550 or 
Claimed Exemptions Exemptions Single 

$1,000 0 0 1 
1,300 1 0 1 
1,550 8) 1 Ll 
1,600 2 0 1 
1,850 a 1 1 
1,900 3 4) 17 
2,000 0 0 2 
2,100 0 2 x 
2,150 2 Z 1 
2,200 4. 0 1 
2,300 1 0 2 
2,400 ii 2 1 
2,450 3 1 1 
2,500 5 0 ci 
2,550 0 1 2 
2,600 ps 0 2 
2,650 0 3 1 
2,700 4 2 1 
2,800 6 6) ys 
2,850 1 1 2 
2,900 3 0 z 
2,950 - 3 i 
3,100 0 2 2 
3,150 . 1 2 
3,200 4 0 2 
3,250 2 3 1L 
3 400 ii 2 2 
3,450 3 it 2 
3,500 5 0 fs 
3,550 3 t 1 
3,650 0 3 Ps 
3,700 2 Z 2 
3,800 6 0 rd 
3,850 4 3 1 
3,950 1 3 2 
4,100 7 0 2 
4,200 4 0 2 
4,250 z 3 2 
4,500 J 4 P 
4,550 3 3 2 


NOTE: 1 indicates single; 2 indicates married. 
Classification assumed: single exemption is 
$1,000, married exemption is $2,000. 


assessment roll was not used until 1969. 


Guelph mill rates: 


1968 27.70 
1969 28.90 
1970 te 
1971 30.60 


Increase in the Guelph mill rate, 1971 over 1968 is 11.02 
per cent. This is an implicit rate of change of 2.65 per cent per 
annum. The analysis assumes the 1971 mill rate was applicable in 


1972. 


TAXFILER DEPENDENCY CHARACTERISTICS 


The dependency characteristics of each taxfiler are ascer- 
tained from the personal exemption level claimed. Each level of 
personal exemptions is a combination of various exemptions. The age 
of the taxfiler is on each return. A different schedule of exemp- 


tions applies to those under and over 70 years of age. 


The exemption level for those under 70 years of age is 
shown in Table B.2. Thus, for example, if the level of personal 
exemptions does not exceed $1,000, the taxfiler is filing as single 
with no dependants. Or if the personal exemption is greater than 
$2,700 and no greater than $2,800, then the taxfiler is filing as 


single with 6 children under 16 years of age. 


The exemption level for those 70 years of age and over 


is shown in Table B.3. 


Table B.3 
OLD TAX SYSTEM 


ESTIMATION OF FAMILY STRUCTURE 
FOR _TAXFILERS OVER 70 YEARS OLD. 


No. of Married No. of No. of 
$500 or $300 $550 
Exemptions Single Exemptions Exemptions 
$1, 000 0 1 0 0 
1, 300 0 i u 0 
1,500 1 1 0 0 
1, 800 1 1 1 0 
1, 850 0 1 1 1 
2,000 0 2 0 0 
2,050 1 1; 0 1 
2, 150 0 1 2 0 
2, 300 0 A 1 0 
2,500 1 2 0 0 
2,650 5 1 2 1 
2, 800 1 2 1 0 
2, 900 1 1 1 2 
3, 000 2 2 0 0 
3, 200 1 1 2 2 
3, 300 2 2 1 0 
3,550 2 2 0 a i 
3,850 2 2 1 1 
4,700 2 2 2 2 
5,000 2 2 3 2 
5, 700 2 2 3 3 


Note: In married or single column: 1 indicates filing as single; 
2 indicates filing as married. Classification is derived from total 
personal exemptions claimed. Under old tax structure single exemp- 
tion is $1,000; married exemption is $2,000; and old age exemption 
for individuals 70 years old and older is $500. 
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Appendix C 


PROGRAM STRUCTURE 


C.1 SUMMARY 


Each run of the program is preceded by preparation of 
the datafile which is read in at the outset and initializes the 
parameters. The datafile contains the label to the run, the cre- 
dit system selected, the date of the run, the size of the income 
and property class arrays, the specification of the credit formula, 
the levels of the various personal exemptions, the income classes 
and the average and marginal rates under the old and new tax struc- 


tures. 


The extrapolation switch must be set separately in sub- 
routines: TAXANL (XTAX in current version); ADS (XADJ in current 
version; and ACCUM (XCUM in current version). The switch, IEXTRP, 
is set at 1 for analysis on a 1968 basis and 2 for analysis of the 


extrapolation to 1972. 


The age group analyzed in the run is established with a 
statement in XTAX following the specification of IYOB = IYR. Thus, 
for example, an analysis of principal income earners of over 65 
years of age requires the statement: 


IF (IYOB. LE.69 AND. IYOB.GE.04) GO TO 92 


The income characteristics of the household which are to 


be analyzed are assigned and the selection of the appropriate tax 


returns for analysis is made in TAXANL. Normally this is for the 
tax return pertaining to the household with the largest gross in- 
Pees However, it is also possible to accumulate all incomes per- 
taining to the address to learn the incidence of property tax on 


family income. 


SUBROUTINE OUTLINE 


MAIN: now XMAIN 
Main program controls the parameter datafile read sub- 
routine, the tax analysis system, and the table printing 


operations. 


PARAM : now PARAM1 


Reads parameter datafile. 


TAXANL: now XTAX 
Calls READIN, the subroutine which reads See tax record 
in sequence. TAXANL then assigns internal variable names 
to the read matrix. Next, the appropriate mill rate for 
the record is selected. 


If PCLAS 
If PCLAS 


1 residential mill rate 
2 special farm mill rate 


The market value of the residential property is the sum 
of the value of the land and the improvements: 
BUILD = XLAND + _ BUILD 
The value of the property tax is then the mill rate applied 
to the market value of the property: 


PROPT = MR* BUILD 


RDIN: 


RSCH: 


CRED: 


ACCUM: 


TAXANL calls subroutines ADJ, RATESH, CREDIT and ACCUM. 
It also selects the income characteristics of the tax 


return to be analyzed. 


now READTP 
This subroutine reads each tax record in sequence and 


attaches variable names. 


now XADJ 

This subroutine estimates family structure from the size 
of personal exemptions claimed. Personal exemptions un- 
der the new tax act are then calculated assuming the esti- 


mated family structure. 


For modifications of the program up to August 1972 
no allowance was made for the increase in deductions pos- 


sible following the increase in the limit on contributions 


to registered pension plans and deferred profit sharing plans. 


Does rate schedule calculations. 


now XCRED 


Does tax credit calculations. 


now XACUM 


Accumulates data. 


C.3 TAX CREDIT FORMULAE | 


The subroutine CRED is programmed for three alternative. 
property tax credit formulae. The option to examine a sales tax, 
credit formulae is included with one of these three forms. The de- 
sired formula for the property tax credit is specified by setting 


the swithce NC in the datafile. 


Nc = 1 ; 


TAX CREDIT = BASIC CREDIT + a % PROPERTY TAX - b % TAXABLE INCOME. 


If property tax is less than the basic credit, property 


tax equals the basic credit. 


NC -= 2 


TAX CREDIT = BASIC CREDIT + a % PROPERTY TAX. 


NC = 3 


TAX CREDIT = BASIC CREDIT - a % TAXABLE INCOME. 


If NC = 1 is chosen there is an option to select a sales 
tax credit formula. This is presently selected by removing a "GO TO" 
statement at the appropriate point in the CRED subroutine. The formula 


is $10 per member of the family less 1 per cent of taxable income. 
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C.4 DETAILED DOCUMENTATION 


PROPOSED SUBROUTINES 


Basie program out Line: 


Main PROT aN: |) WHaich. controls 
(a) Read parameters subroutine 
(6b) Do tax analysis subroutine 
(c) Table printing operations 
Tax analysis subprvoupine. whien controls 
(a) Read records 
(b) perform operations (i)rate schedule (ii) 


(c) accumulate data 


Program names: 


MAIN >; Maealn program 

PARAM > program control €ndwaremeters 
TAXANL [Jods anerys is, Conuron 

RDIN : reads records 

ADJ : beeie calculations 

RS CH = rate schedule calculations 
CRED : Sredit. calculations 

ACCUM ; accumulates data 


TAB. ; “Gebie Bumbers , Lebo ms 


credit 


August. 10, I9TL. 


PROPERTY AND INCOME TAX ANALYZER 


INPUT RECORD VARIABLES 


NAME 


Identification characteristics 


Assessment number 
Birth year 
Sample code 


Income tax characteristics 


Income: 
Prior year loss 
Gross main source income 
Foreign income 
Net dividends from taxable Cdn. companies 
Total income 


Deductions and exemptions: 
Deductions to total income 
Gross medical receipts 
Donations 
Personal exenpt ions 


Taxable income: 
Taxable income 
Federal tax 
Provinevaliteax 
Foreign tax paid 
Federal foreign tax credit 
Provincial foreign tax credit 
Tax deducted at source 
Tax adjustments 
Amount paid on filing 
Computer calculated balance 


Identification characteristics 


Sinno 

Surname 

Firt name 
Street address 


Property tax data 
Assessment 


Property class 
Property tax payabde 


LABEL 


LOC 
IYGB 
SAM 


XL@S 
XINC 
XFQR 
XDIV 
XTOT 


DED 
XMD 
DON 
KE XEMP 


TAXI 
FPTAX 
PTAX 
FGRT 
PRTX 
P Pk 
STAX 
TADJ 
PAID 
CMBAL 


SINNG 
SUR 
FNAME 
ADD 


ASS 
PKLAS 
PR@PT 


ARSH(i, j) 
BRSH(i, j) 


RSH(i, j) 


EXEMS (4) 
EXEM(j) 
EXA 


CH1 
CH2 
ECH1 
ECH2 


EXE 


XK(K1) 
TXK(K1) 


PKLAS (K2) 


TP (K2) 


SM(i, j) 


VARIABLE NAMES 


NAME 


input device code 

output device code 

number of income classes 

number of property classes 

number of rate schedule classes (old tax schedule) 
number of rate schedules 

number of rate schedule classes (new tax schedule) 


average rate of tax in class 
bottom of tax class 
marginal rate of class 


basic property tax 

credit as % of property tax 

credit as a % of assessment 

credit as % of income 

maximum credit available 

average municipal assessment level or per 
capita credit 


single person exemption 
married exemption 
old age exemption 


children under 16 

children 16 and over 

exemption children under 16 
exemption children 16 and over 


employment expenses 


gross income classes (lower limit of class) 
income class threshold levels 


property classes (lower limit of class) 
property class threshold levels 


summary classes 


Nl 


NN 


NC 


ENP 1. 


August 26, 


ADDED VARIABLES 


PROGRAM CONTROL 


= record counter 
= number of records 
= credit type 


= input device code for 
recor £416 


LOT Es 


ACCUMULATION ARRAY 


August Li, 1972. 


Variables to be accumulated by income class, where 


i *= income class, 7 = 
RECORD 
LABEL 
XTOT SM 
DED SM 
XMD SM 
DQN - SM 
EXEMP SM 
SN SM 
SG SM 
TAXI SM 
QTAX SM 
NTAX SM 
FTAX SM 
Peak SM 
te eae Wo § SM 
Pree EX SM 
TX@ SM 
TXN SM 
CD¢ SM 
CDN SM 
PRGPT SM 
ASS SM 
SM 
CH1l SM 
CH2 SM 
If MSTA = 1 SM 
If MSTA = 2 SM 


variable name. 


NAME 
Total income 


Deductions to income 
Gross medical receipts 
Donations 

Personal exemptions 
Est. exemptions, new 
Est. exemptions, old 


Taxable income 
Esty *Vakeble., ole 
Est. Caxenole, new 


Federal tax 
ProvinetiLal tax 
Feds for tax eredis 


 Prov.for tax credit 


Been Sam Owe 
Psu o tas, new 


Est. props credigg old 
Est. prop. Creqdut mew 


Property tax payable 


Assessment 
Numbers of filers 


Number of children under 16 
Number of children 16 and ove 
Singles 

Marrieds 


MSTA 
KCH 
DIF 
he 
PTAX 
NTAX 
TX 
T XN 
CD¢ 


CDN 


Augush.2 7 does 


ADDED VARIABLES 


ANALYSIS 


Marital status, 1 if single, 2 if married, 
Exeess estimated children counter 

Record exemption less $1000.00 

Taxable income, common term 

Taxable income, estimated, old system 
Taxable income, estimated, new system 

Tax payable, old system 

Tax payable, new system 

Property tax credit, old system 


Property tax credit, new system 


August 274 2395. 


ACCUMULATION ARRAY 


Variables to be accumulated by income and prop- 


erty class, where IJ = income class, IK = property class. 

RECORD ARRAY 

LABEL LABEL NAME 

OTAX SOTA iT Sik) Taxable Income 
old system 

NTAX SV DAK, TK Taxable Income 
new system 

CD¢ SCD@(IJ,IK) Property credit, old 
system 

CDN SCDN(IJ,1IK) Property credit, new 
system 

SN1 SN Weis Li) Record counter 

XT OT Sau ees Sake) Total income 

PRGPT SPRGP(IJ,1K) Total property tax 

TX@ STRO(II4ZIK) Income tax payable, 
Oe Syi5 em 

TXN STR Dd. DK) Income tax payable, 


new system. 


TAB 1 


TAB 2 


TABLES, PROPERTY 


TAX ANALYSIS 


Number of tax filers in each property class. 


Total income in each property class. 


Average gross income in each property class. 


Average property tax paid in each class. 


Average taxes paid, old tax structure. 
Average taxes paid, new tax structure. 
Difference in taxes (average). | 

Average property tax credit, old structure. 


Average property tax credit, new structure. 


Total taxes, old system (excl. prop. taxes) 
Total taxes, new system (excl. prop. taxes) 
Total property tax credit (old system) 


Total property tax credit (new system) 


Sept. 28/71 


TAB 


Summary tax deduction data. 


(a) income class 

(b) total income 

(c) deductions 

(d) medical receipts 
(e) donations 


‘Summary tax exemption data. 


(a) personal exemptions 

(b) estimated exemptions, old tax structure 
(c) estimated exemptions, new tax structure 
(d) average exemptions, old tax structure 


Summary dependency data. 


(a) number of children under 16 
(b) number of children over 16 


Summary tax credit data. 


(a)- total credit,.old tax structure 
(b) average credit, new tax structure 
(c) total credit, new tax structure 
(d) average credit, new tax structure 


TAB 5 


TAB 6 


Summary tax data. 


(a) Taxes (excl. credit), old structure 
(b) Average taxes, old structure 
(c) Taxes (excl. credit), new structure 
(d) Average taxes, new structure 


Incidence tables of credit. 


(a) Credit as % gross income. 

(b) Credit as to taxes (excl credit), old structure. 
(c) Credit as % gross income, new structure. 

(d) Credit as % taxes (excl. credit), new structure. 


Incidence tables of taxes. 


(a) Taxes (excl. credit) as 
(b) Taxes, with credit as Z% 
(c) Taxes (excl. credit) as 
(d) Taxes, with credit as 4% 


Not used. 


Statistical summary arrays. 


% gross income, old structure. 
gross income, old structure. 
% gross income, new structure. 
gross income, new structure. 
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Appendix D 


PARAMETER DATAFILE 


The parameter datafile has the following format: 


LINE 1: RNYR: Base year 1968 or extrapolation 1972. 


RN: Run number. 
LOC: Location of analysis. 
LINE 2: NC: Credit form. 
LINE 3: Di: Day of run. 
DZ; Year of run. 
DT: Month of run. 
LINE 4: RES No. of gross income classes. 
Rs No. of property tax classes. 
K3z No. of income classes, old rate schedule. 
K4; No. of rate schedules. 
a No. of income classes, new rate schedule. 


EINE 5? BCRED: Basic credit 
CRED : % property tax added to basic. 
ACRED: % assessment (not used). 
XINCP: % taxable income subtracted from credit. 
CMAX : Maximum credit. 
AMAS: Average assessment (not used). 


LINE 6: EXEMS (1): Single exemption, old structure. 


EXEMS (2): Single exemption, new structure. 

EXEM (1): Married exemption, old structure. 

EXEM (2): Married exemption, new structure. 
LINE 7: Chi: (not used). 

CH2: (not used). 

ECH1 : children under 16 exemption. 

ECH2: children 16 and over exemption. 


LINE 3% ARSH (1,7); Average rate schedule, old structure. 


LINE 


LINE 


LINE 


LINE 


LINE 


LINE 


SI 


10: 


iT. 


12: 


13% 


ARSH (2,J): 


BRSH (1,J): 


BRSH (2,J): 


RSH (1,J): 


RSH (2,J): 


OA Sec ME Tic. 4 


26,072) PELAG Ar? 


Average rate schedule, new structure. 


Taxable income threshold, old structure. 


Taxable income threshold, new structure. 


Marginal tax rate, old schedule. 


Marginal tax rate, new schedule. 


Income classes (both identical, one now 
redundant). 


Property tax classes (both identical, one 
now redundant). 


Appendix E 


PARAMETER DATAFILE LISTING 


The following is a sample listing of the parameter datafile 


described in Appendix D. 


TYPE FOR2Z0.DAT 
1968 203 G’LPH 


| 
47,1972, AUG 
) ea Gly 19 2,13 
190% 10,14 505,250. .,2 
1930 1508, 2008 ,2859 


0,0,388,559 
@ 134.55 159.0 278.57 351.50 596.69 842039 1415.50 1951.10 2560el@ 
3299.10 4526.1 9161.1 16886.1 28216.1 46756.1 72188.6 142288.6 277476.1 


O 190.55 227 5 5414..554 156004 200s On 1 (555, 252d. poe. 34445900 
8989 .5,16594.5,28333.5 
G@ 9BO 1985 1643 280380 3008 4040 6940 8433 19600 

12080 15046 25068 42000 60960 99906 125300 225386 406293 
G,.590,188G ,2998 ,3099 ,5040,.7300 ,999S 11090, 14990 
24996, 39838 ,64689 
~A4S) wil o2 .2842 2.235) 22057 22360 2.26/78 .3990 <3605 
G12 .40357.5150 2.5665: 261980 2.6695 .d210° 77725 .8240 
Wetelg ec oa yc b4) 54 2OU se 2 oy 62795 ec Se GeO ety 495 

eet sane 420 lie 
0, 2589 , 3098 , 3598 . 4468 , 4598 ,5009,5528 , 6009 ,6533 
7108G , 7538 ,88GG , 8599 ,909G ,.9598 138008, 12099 ,15998, 20590 
25009 , 5383S ,.1 AWDSS , 2995AD 
G, 2598 , 3049, 3589 .4200,4549 .5948 ,5549 ,6990 ,6538 
7998 ,1528, 8094 .8503 , 9080 .95900 ,19099,1 2908, 15092, 29740 
25006 ,59O28,19BSAG .28009B 
0,8,108,200,390 ,499,503,690,720,390 
996 ,19980 ,1198,1200 
0,0,199,208,3090,439,598 ,696, 790, 343 
9OG,1900,1190,1206 


‘Gee 


i 
ae 
pnaeen ase oa sins %, Pane 
| CCAS A Ca rae Eheuee aa + dishing err) the is 
CUNO ER7 ENE st St2i seeeatn 7 
ROaFOUT En ECHY Snot? 
Catteries Se, Pe PRE As C76) TPUES) 
CO Mee ELA af 14 (Gay, 2eKt 3) 


Sere oo. TYOs: Sth. BY WN) SU, AWE ATM) 
RUS RIM XPC, LOIr¥ MT 
CUMMINS 72ED/DED Kat, 
OS Oe bat aA TES ASS 


Vebae i 


= 


YP Fe CT €F FY. eT 


v 
a ay 
ie 


so) |S 
rer 
= 


i 


Mg 


= 


te ‘as 


XAAITN 


CP EIT FP 


©) 


et) Ce 


ae 


AB 


GUELPH 
at pte er PG 
a er! 


mM 


L M4 A I N 


Mid 


CO Mid 


PROPERTY TAA ANALYZER 


fan 
que 


COMMON/EX7EXEMS(2) ,EXEMC 2) 


COMM 


ON 7 CUTTY /ECHT Echi2 


COMMON/PROP/PKLAS (25), TP (25) 
COMMON/KLAS/XX£ (035) , TXK(30) 
COMMON/LABEL/LOC ,TYOB, SAM, SINNO.SUR, FNAME ,ADD 


COMMON /ZINC/XLOS 


emINC SAPURG KOU ha. 


COMMONZDED/DED , XD DON SEXEM 
COMMON P DATAZASS ,PrOPT 


COMMONS TDA TACT AX BOF TAX PP TAX POR THEE DAP ETS, STAX PADS P ALG 


MIF 


scMs8 AL 


COMMOUSAS 1 Ke, Ros ha ROL 


COMMON/SKL/5S~* (38 (25) ,SOTAK (38,30) ,SNTAXK (34.3%), 


§ $C7I0(33, 38) ,SCDN( 30, 30), S134, 39). 


$ 

CO MAL 

COMIC 
COMIC 
COMM( 
COMME 
CO Mii( 


COMM( 


ST) 1436, 39) ,SPROP CAG 30) 


NYE O/C, CON 

YNZ TX/TXN, IXO.NTAX,OTAX 

INS NC/NC, KC 

INZEXC/SN, SO 

INZ SIA ST KOCG I 3 eS ERMC), 32) 
IN/DATE/DI O2,DT,RN 

IN/COUNT/ NRIN,NRINX,NBAD.IEND 


ON/RSCH/ARSH( 3,30) .BRSHC 3,30) -RSHC 3.39) 
COMMON/CRED/3CRED .CRED, ACRED .XINCP 


'AXK gAMAS 


COMMONZINPOUTS INPTI,INPT2,10UTI IOUT? 
COMMON/FAM/ MSTA,CHI ,CH2 
COMMONS SUM/ZSUMS (25 ) 
COMMON/DIVOD/ODIV (3G) ,SDIV(38) .XNDIV(3%) 
COMMON/DSTORZ STOR(3,30) 
COMMON/RECORD/MNATCH( 24 82) 
COMMON/XKDS/ XCH1,XCH2 
COMMON/DCRED/ ODC,XNDC 
INT=EGER Cril.CH2 


CALL PARAM 


CALL TAXANL 


Gf 
CALE 
CALL 
CALL 
CALL 
CALL 


TABI 
TAB2 
TABS 
TA34 
TABS 


TA86 


NEA Vet LENUED 


Sher 
ne, 


PAX AM 
SUBROUTINE PARAM 
C 
CLABEL PARA 
8 TO READ sPARAME MEAS AS SUICPd DONS ene SoG OURS 
C 
C 


COBMON/ARSCH/ ANS Core air Cee Scr) tetis ot Cea y) 
COMMON/ CHED/ SCHED CRED, ACREDEX DNCP SEMAN AMAS 
COMMONS X/EXEMS(2) .EXEM(C2) 
COMMON/CHILOZECH), eCHe 
COMAON/ PROPS PRLAS( 25), IP (25) 
COMMON/KLAS/ XK (32) . TXK(3@) 
COMMON K7K1,K2,83,K4,K5,N1 
COMMON SNC/ NC KC 
COMMON/DATE/DI ,D2,DT,RN 
DeTeGGe Crib ca2 
INPT=22 
IPOUT=6 
99 rORMAT(51) 
123 FORMATCO6OF) 
Ql FORMAT(4F) 
rs rORWATCI,G, A) 
104 FORMATCISF) 
195 rORMATCI,I,A) 
HEROCINE ) 1@3) RAYS, PN, LOC 
READCINPT.99) NC 
BEAD INPT S15) Di oe DE 
BEC Glie Ly) wily eho 45s 
nhEAQCINPT, 143) BCRED,CRED.ACRED XINCGP,CMAX AAMAS 
Me heClNe sy (Ol) EYES Cl), ex GSC2) XEN Cl) Sees) 
Bee Cte we) ee leecHewy Boole emote 
LL=X5 
A VIO Tel K 4 
LeCISES.. 1) Ko=22 
PEADCINP T1424) CARSHCN AD Jel. 13) 
ema VIP. 14) CARSH CI cory] Vk 5) 


PARAM CONTINUED 
Pet ke sNe 239 CO TOTT4 
eR OCLUP E  IOa)? CARSHET Sy eo eas 
KO=LL 
lito CONTINUE 
113 CONTINUE 
DO 112 T=1,Kk4 
Pel so) ree 2 
Bee CINP Ls, 104) (ARSHC ad). JS V3) 
READCINPT,104) (3RSHC1,J).J=11,<5) 
Tr(K5. NE. 20)GOTOLL3 
READCINPT, 194) (BRSHC(I ,J) ,J=21,K3) 
K5=LL 
113 CON TINUE 
1t2 CONTINUE 
DO 114 1=1,K4 
Peti,20.21) K5s24 
READCINPT, 194) CRSH(CI.J),J=1.19) 
Srrueerr i aiwee CRSACL J), 0S 1 KS) 
LPaAR De ew 20 GOTO) 15 
Pea CINPT, 44), (ksh) ,J),J221 .K3) 
K5=LL 
PES CONTINUE 
114 CONTINUE 
READCINPT, 104) (XK(CI),1=1.19) 
READCINPT, 134) (XKCI),1=11,22) 
READCINPT,194) (XKCI),1=21,X1) 
READCINPT, 134) (TXK(1) I= .1d) 
READCINPT, 104) (CTXK(I) ,1=11,2%) 
READCINPT,1@4) CTXKCI) ,1=21,K1) 
READCINPT, 104) (PKLAS(I),I=1 ,10) 
READCINPT, 104) (PKLAS(I),1=11,29) 
Ir (K2.LE.23)GOTO79 
READCINPT,194) (PKLAS(I),2=21.K2) 
70 CONTINUE 
READCINPT, 104) (TP(1),I=1,13) 
READCINPT,104) (CTP(1),1=11,29) 
IF (K2.LE.20)G01089 
READCINPT,194) CTP(I),1=21,X2) 
Bo CONTINUE 
Ag FORMAT CIR) 
120 FORMATC23X,28HGUELPH PROPERTY TAX ANALYZER) 
121 FORMATC21X,36HDEPARTMENT OF TREASURY AND ECONOMICS) 
122 FORMAT(28X,21HGOVERNMENT OF ONTARIO) 
peat FORMAT(28X,7TAX AND FISCAL POLICY?) 
124 FORMAT(34X,6HBRANCH) 
125 FORMATC//7) 
126 FORMATCIX,9HLOCATION: ,2X% ,A5,13X VP IHRUN NUMBER? ,F4.9) 
127 PORMATCIX 7 RUN. DA Tes? “ASSIA Lys ae ke AG 
$ 6X,7RUN YEAR?’7,5X,14) | 


128 


FORMAT(IX, “RATE SC EDULES) 


152 


169 


CONTINUED 


FORMAT(3X,18HOLD RATE SCHEDULE?) 
FORMA TOOX ,QHBOTTION OF ,7X, 7HAVERAGE «8X, BHMARGINAL) 
FORMATC9OX ,SHCLASS ,11X ,4HRATE,11X ,44RATE) 
FORMAT(3X,18HNEW RATE SCHEDULE: ) 
FORMAT(3X,21HPROPERTY TAX CLASSES?) 
FORMAT (9X, 9HTHRESHOLD) 

FORMAT(9OX ,8HOF CLASS) 

FORMAT (3X, 15HINCOME CLASSES: ) 
rFORMAT(9OX,F19.2,5X ,F18.2,5X .F1W.2) 
rFORMAT(9X,F1G.2) 

FORMAT(/) 

FORMAT(3X,32HPROPERTY TAX CREDIT ASSUMPTIONS?:,//) 
FORMAT(OX,13HBASIC CREDIT: ,12X ,F8.3,/) 

FORMAT(COX ,25HCREDIT AS % PROPERTY TAX:,F8.3,/7) 
FORMATCOX,25HCREDIT AS % ASSESSMENT 2?,7F8.3,./) 


FORMAT(9X,25HCREDIT AS &% INCOME rg aeriroir ed 2 
FORMAT (9X, 25HMAXIwWUM CREDIT AVAILABLE? ,F8.3,/) 
FORMAT(9X ,25HAVERAGE ASSESSMENT mc Ae 


FORMAT (9X, SHLOWER ) 
WRITE PARAMETERS 


WRITECIPOUT, 120) 
WRITECIPOUT, 121) 
WRITECIPOUT, 122) 
WRITECIPOUT, 123) 
WRITECIPOUT, 124) 
WRITECIPOUT, 125) 
WRITECIPOUT, 126) ,LOC,RN 
WeTLECIPOUL, ket DF, D1 YD2.RNYR 
WRITE CIPOUT 25) 
WRITECIPOUT, 128) 
WRITECIPOUT,139) 
WRITECIPOUT, 129) 
WeITECIPOUT, 139) 
WRITECIPOUT, 138) 
WRITECIPOUT,131) 
[=| 
DO 150 J=1,K3 
NaI DECIR OQUA ho hy. BASHCl J), ARSH Glee o-hCletl 
IF (K4.LE.1 )GOTOI734 
WRITECIPOUT, 119) 
Me eR EP OU ls 125) 
HRITECIPOUT, 132) 
Watt ECP OUR eto) 
WRITECIPQUT, 139) 
pee le lPOUT e134.) 
J=2 
DO 164 J=1,K5 
det Tee lPOUL. 137), 8 RSH GIs dae ARSH Gita BSW OL.) 


PARAM CONTINUED 


172 CONTINUE 
WAITECIPOUT,1I19) 
We ITEC IPOUT, 1253 
WRITECIPOUT, 133) 
ARTTECIPOUT, 139) 
Wea PEAT POUT, 1473 
Whi TE€ IPOUT, 434) 
WROPECIPOUT, 135) 
DQ 184 I=1,K2 
160 WRITECIPOUT,138),PKLAS(T) 
WeITECTPOUT,119) 
WRETEOIPOUT. 125) 
WRITECIPOUT, 136) 
WHITECTIPOUT, 139) 
WRITECIPOUT, 147) 
WR ITEC IPOUT, 134) 
(eT TECIROU Ti 36) 
WRITECIPOUT, 139) 
DO 199 IT=1,K1 , 
iOS WRITEOIPOUTS 138) 4d0et T) 
WRITECTPOUT,119) 


a 
WRITECIPOUT, 125) 
WQITECIPOUT, 142) 
WRITECIOOUT,141),3CRED 
WRITECIPOUT, 142) ,CRED 
AR ITEC IPOUT, 143) ,ACRED 
WRITECIPOUT, 144) ,XINCP 
WRITEC IPOUT, 145) ,CMAX 
WRITECIPOUT, 146) ,AMAS 
WRITECIPOUT, 125) 

- WRITECIPOUT, 119) 

Cc 

. 

RETURN 
END 

READTP 
SUB20UTINE READIN 

C TO READ IN RECORDS FROM GUELPH MATCH TAPSS. 

GC READS IN 19 RECORDS AT A TIME. 


ZeMwuP COATINGSD 


* ARTTTE BY HARRY NENTON. Ceaser loc 
COMMONS COUN T/ APR Tia, WRINX ,NBAD,IEND 
com VOWARECORD/MATCH( 29 aD) 
RMON DISPOUIZINP AT SI Ne Des LOUIS. 1Out2 
ver ISN/2/ 
DATA NRIN/AB/ NRINX/3/7 ,NRAD/O/, TENDS AS 
IFCISW.2Q9.1) GO TO 140 
CALL NTRANCINPTI,12) 
CALL NIRANCINPT1 ,14) 
Wee br 


15¢ FORMAT(/,2X 47TYPE NO. OF RECORDS TO 3E PROCESSED-~ .$) 
ACCoP ds Vii eMAKREe 
15] rORMAT (1G) 
ISvW=1 


IWS NRIN=NRIN+14 
Ir (MODCNRIN, 1434).60.%) TYPE 151.NR1N 
READ INPUT RECORD. 
260 CALL NIRANCINPT1,2,208@,MATCH,IST) 
AAG AG cesta Ors eu.) TO 221 
lei Sis ee 2) COTO. So9 
Lies Dae spec 10. 407) 
IF (NRIN.GT.MAXREC. AND. WAXREC.NE.9) GO TO 544 
RETURN 
INPUT ERROR-RECORD UNREADABLE. TRY TO 254D ANOTHEX RECORD. 
4410 NBAJENBAD+123 
IVPEVSo ISL NHINNSAD 
149 PORMA TOP X OERAOR—1S T=? ,15,6X,4Na I N=", 1oe6y Nes Se? 
SS JO OK eG CUNT RE-ENABLED? ) 
CALL NTRANCINPTI £22) 
GO TO! 209 
GS END-Or-TAPE. RETURN TO CALLING PROGRAK, 
502 NRITAN=NRIN-128 
632 ITEKD=1 
RETURN 
END 
SUBROUTINE ATTACH(1) 
THIS SUBROUTINE ATTACHES PROGRAM VARIABLE NAMES TO THe APPROPs oe 
ELEMENTS OF THE INPUT ARRAY. 
WRITTEN BY HARRY NEWTON. OCTOBER 1971. 
COMMONZRECORDZMA TCH( 208) 
COMMON/ZDSTORZ STOR (3,32) 
COMMONS COUNT/NR IN, NHINX N3AD, TEND 
DATA NNEG/U/ 
RaG OMe eed wl GO TO" 149 
STOR (1,7) =4A4 TCH (238% (1-1)+7) 
STO2 01, 8) =4ATCH( 278% (1-148) 
SPOR (1,9) =4ATCH (238% (1-1 )+9) 
TOR C1 29) =WATCH( 208% (I-1 )+18) 
STOR (1.21) 242 TCH (298% (1-1) +25) 
STOR C1, 22) =MATCH (248% (1-1 )+26) 


(3; 


(3, 


DIAS, 


SL SS Se ee ce ee SD ES OD SEED eee OBE See ete ers Sy mm eee See Sees eee ees a es oe es 


HEADTP CONTINUED 


12] 


142 
2AaG 


aM 


XTAXA 


STOR C) 23. RRATCH(O4BA CIP 34975 
STOR C1. 19) =MATCH( 288% (1-1)+122) 
S1OR (1 wd 1) =HA TOA 20e*( I - Ei i 
29108 (1,1) =4ATCH (2884( 1-1 34930) 
STOR CL. 12) =a ATCH (288 * (1-1 341733) 
STORCL 13) =MATCH (248* ( I-1 )41 34) 

STO02(1.2)=MA TCH ( 248% (I-1 14135) 

TFCSTOR Ci 52) .LT.0.3, NNEGENNEGS 

STOR (1, 3)=MATCH (208% (1-1 )+137) 

STOR C1 4) =MATCH(298* (1-1 )4+138) 

STO2 (1,5) =MATCH(208* (1-1 )4+143) 
STOR (C1 .6)=aATCH( 208*(1-1)4144) 
STOR C1 , 14) =44 TCH (208% (1-1 +146) 
STOR (1 ,15)=MATCH (288% (I—1 )4+147) 
STOR (1 ,16)=MATCH( 208% (I-1) +140) 
STOR (1,17) =MATCH (2%8* (1-1)4151) 
STOR (1.18) =MATCH (208% (1-1) 4152) 
STOR C1 .19) =4ATCH(298x (I1-1)4+153) 
STOR (1,24) =MATCH(298* (I-1 ) +12) 

PURMNAAA Chat oro. EAD” «lO. ok. 7 12216) 
RETURN 

WHRITE(6,209) I ,NRIN 

rORMAT( 33H3ERR20R2 IN SUBROUTINE ATTACH -- f=, 16,15X,SHNREC= 16) 

RETURN 

=ND 


SUBROUTINE TAXANL 


Cc 
CLABEL TAXANL 


. 


$ 


COMMON/LABEL/LOC,TYO03,SAM.SINNO, SUR FNAME, AND 
COMMON/INC/XLOS, XINC ,XFOR,XDIV .XTOT 
COMMON/DED/ODD .XMD, DON, EXEMP 

COMMON/PDATAZASS ,PROPT 

COMMON/ TDA TA/TAXI, FTAY ,PTAX, FORT, FFIX, PFTX,STAX.TADJ« 
CheL 

CONMOWSNC/ NC ,XCH 

COMMONS KCK) K2,K3,K4,45, i. 


COMMON/KLAS/XK(032) , IXK (34) 


CONTINUED 


COMMOUNASKLS” Si C372) oS LAM Ges 2a SRE ea Eee ae 

FPO OO ae oe ae 34) sONT C3ar 39) Sf OCCS4r 3) Se 400 
COMION/ST/ STXN (39,33), STXN(3%, 34) 
CORMOINS COUNT HAIN NYDN, Head Te Mm 


Cr Jiao: YZINPOUTZ INP Th TNE TAS OUT, out 2 
COMMONZFAAZ MSTA,CHI,CH2 


CEG) CEG EG) 


ine) 
cS 


ks) ™ 


COON 
Ol 


U1 


€) 


COMMONS CRILD/ECHT ; ECH2 

COM “ON/SUM/SUNS (25) 

COMMAOR/ DIVCD/ODIV (38) ,SDIV (323) 2XNDIV( 3a) 
COMMON/DSTORZ STOR (3,39) 

COMMON RECORD/ MATCH (218) 

CLIN AOA erp eer 2 
COMMON/DCRED/S ODC, XNDC 

PNT EGER Cl a CH2 

HoAL in 

DATA STOR/92*3/ 

DATTA ONP EUs R27 NPY OSG/, LOUMY Cs. Wu e767 
ID1=24 


TEXTRP= 1 


B=3+] 

=f 
CALL READIN 
Pe lEnD. EO.) GO TO 5420 
l=I]+] 
PCs ete. iiNet) CO =O 5 
IFC(STOR(2.7) .NE.0@)GOTOS5 
IF(STOR(2,9).5£9.9)G0 To 5292 


LE CLA Gi. 1 IG0. TU 20 
CARES A Lauwom (l) 
Ir (STOR(1,9).E9.9) GO TO 5943 


BO 25 Tiel. 1D} 

SOR t a, JVeSTOR CTs) J) 
STOR OW, LIV=2 
CONTINUE 


CONTINUE 


l=I+] 


COATINUE 


ig Ceo hee tot 28 
teCaTURC2,9) 69.9) Ch TO 507¢ 


® 
c 
oe Cees fp 
tei DURE) ew eR Ce. J) <ceees 
6 CONTINUE 
Ie tS TOG, 24 une Ste (2.245). 60 TO 8 
LE On bt Oe SC, 2.0) ene 
PED 2 el Je | 
PhOR CA hd Jee 
a2 CONTINUE 
OU Fey 7 
a CONTINUE 
C 


DO 33 IX=1,1DI 
STOR(S 1K) =STOR (1, 1K) 
STOR(1,1X)=STOR(2, 1K) 
STOR (2 , 1K) =STOR (3, 1K) 
STOR(3, 1K) =3 

33 CONTINUE 

GO TO 12 


c 
a 
9 CONTINUE 
OD Sh a er 
STOR (2,15) =STOR (1,1) 
STORC! 15) <2 
37 CONTINUE 
TG: GO? 
c 
13 CONTINUE 


XINC=STORC1,1) 
XTOT=STORC1,2) 
BDED=STOR (1,3) 
XMD=STOR (1,4) 
DON=STOR C1 5) 
EXEMP=STOR C1 ,6) 
LYOB=STOR(1,19) 
ALOS=STORCT, 119 
SFOR=STORCI, 12) 
XOIV=STORCL, 13) 
TAXT=STOR(1,14) 
FTAX=STOR(1,15) 
PTAX=STOR(1,16) 
FrOR=STOR(1,17) 
Fe IX=sTORC1,13) 
PFIX=STORC1,19) 


Sel CONS 


PCLAS=ST02 (1,20) 
XLANDHESTOR CI 52h) 
BEJILD=STOHC) .22) 
PUnPpos ok Glee ss 


C 
ie 
1PCAN0 Bete ooy LOuee 
TYR=HOD CTYOB 132) 
12 C1 YReGE. deAND, INR.ET. PO) TYREMOOCIYOS, 10408) 
IFC LY2.GT.194) LYR=MODCTY#, 199) 
= 


TYO8=1YR 
TECLYOR. LE. 69. AND. LYOS8 sGE.94) GOe108g2 
IF(naIN, Le. 303 Peay Oe 
42 FORMAT (3X ,40F15.4)) 
= FORMAT CSX,7TEAR DP SIR In”, 19) 
11 POAMAL CON, “ULV EDBNDS” gr la. 2) 
Tse CONTINUE 
Z PORMAIC// DR 5s" ROA) 
DOr 384 .lJ=1, 10) 
34 STOR C1, 1J)=2 
CALL ADJ 


a 
GAUL RAT ESH 
PRePOCUAS, Li, 1) Dy Pee 
wWR=. 3277 
IF(PCLAS.EQ.1) MR=.0277 
Ir (PCLAS.E9.2) MR=.92479 
TRAPCLAS.Ol.2) MR= 60217 
IF (BUSPC.NE.@ )BUS=BUS+ I 
1 FORMAT(C3X,¢ TINC? .F10.0, 74557 FF 12.2%) 
Cc 


BUILD=XLAND+RUILD 
PE CLEXTRP NES 2), GO 10 143 
BUTLO =BUILDeL. bie 
BulLD=SUTLOel. 18893 

}43 - Coe Ue 
PROPT=MR*BUILD 
DeONe EA. GT. 14a). 50° TO. 29 


TY CONTINUE 
Cable Cari ic 
tea PORMATCIX 23.10) 
CALE VACCUM 
92 CONTINUE 


GO TQ 4 
5220 CONTINUE 


#XA CONTINUED 


i 


TE ee, 


~ 


2 

DIANCK IAL, 
NOAM CRS 1 
CAC Keb tS 
CONCRIFT, 


Ii ON 
SPOS: 


BAe Pt 
SPROPCKI +] 
SA KET f 
STANCK 1 +1 
5416 CONTINUE 
59 22 CONTINUE 
D) 644 J=1 
DO 625 I=1 


Oto: T=) 


Be chat a ive git oO AX Or 
eI VBSNTAX UK T+ EPS Rae SNER CT 


OAT; 


gid rt has a oO EL oo 


e) 
20, 
) 


J =SODN(KI41,J) +50DNCI J) 


NiCXbs] a) eS thas bad hy ON ROT UO 
»J)= STOTCKI+1 J) sooth gt ee RAND 


9 V=SPROPCKI+1, J) +SPROPCI 


oJ) 


JD =e SCRA, Ud? STAT OTS TP) 


ed) SSUK NCR HS eSTKNC  ) 


23 
eX] 


SUMS(J)=SNCI peer ou Mok.) 


625 CONTINUE 

648 CONTINUE 
RETURN 
END 

ols: 

XADJ 


SUBROUTINE ADJ 


TO ESTIMATE 


OR eh ik Ge) 


DEPENDENCY CHARACTERISTICS 


COMMON/LABEL/LOC, TYOB SAM, SINNO SUR, FN 
COMMONZDED/OED, XH) DON, EXEMP 

COMMON TI NC/XLOS, XINC XFOR,XDIV ,XTOT 
COM 4ON/PDATAZASS, PROPT 


COMMON Z TD ATA/TAXI, PYAXAPIAM, POR Tehhid 


SCMBAL 
COMMONS TXZ 
COMMONS NCS 


TXN,1TXO,NTAX ,OTAX 


NC ,KCH 


COMMON/EXC/SN, 50 


COMMONS CDSS 


DQ "CDN 


COMMOH/K/KI ,»€2,K3,K4,45,N1 


COMMON/KLA 
COMMONZEXZ 


S/XK (30) y LAK C30) 
PKEWS(02)4,EXEMC2) 


COMMON/ CHILDS ECH 1 /ECH2 


AMS, ADD 


-PPIX STARS OPAL. 


} 


NS 


X40J 


3H iS ae: [al WE OM Ge Dk oe 1 Bs Ge 


oO 


ei 


ce) 


S 


$ 


$ 


S 


> 


> > 


COA TINJED 


COMMON/PROP/PXLAS (25) , 


COMAQSZCOUNT/ NEIN SN 
COMSMONT AROS XCH1, YCH2 
COMMOH/DCRED/” DC. XNDG 


NM 


IP(25) 
COMAONSE AZ MSTA CHI ,CH2 


RINX, 


N34), 


INTEGER XMSTA,XMSTO,AGE CHI 


DATA CSA 
DIHENSTION XMSTOC21) 
DIMENSION 
DIMENSION XDED(4@), 
DATA ERM/5 .7 
DATA XDED/1¢ 
RAE sien teed (0h Rammer Bs Poo Cam mae Ge) 


DAT AL C/O hee le al eo, 


HeESe: ly Ppelee ahem rc etic tr, 
ATA ACH2/4 a, 1.35140, 
ieieen Bs nao 3 ie) aud 
ae a oe pastes Tie 
Sea ee ON ais Ge 
DA nN XODED/1499.,1332,. 
23450. .2539., 2659. .2892 
4798. ,5ABA. ,S7TAD.S 
ACTA RUA IL) ade 
DATA KD2 /3,0,9,2,1.2, 
DAAC 42.0. 1.4). 02a), 
DATA MUSTO 1 lee ae. 


RODE DG 1s) hi) GA 


bea) 


scH2 


KD GA rao eCany) 


02452 
$2502. .2550., 2640. .2650. 2749. 2809. 
295 SUB AS ISO S246 13255, 4400. 
SSA OOO Rg Oo ODO. aloes 3835... 
S$ 4240. ,425%,. ,45048. ,4550./ 


CH (48), MCH2 (42), 


age 450s", 
e 239%. 


23 


~~ 


229 AG. 


XMS TA (49) 


BO0..1300.,1559.,1600.,1859..1909., 
EE Lal 


b] 


ANALYSIS OF THE DIVIDEND, TAX CREDIT UNDER THE OLD AND 


NEW 


Sle bENSer WANs 2th. US i2 


ODC=XDIV*.2 
BAD=XDIV*. 33323 


XINC=XTOT+BAD 
XNDC=BAD*. 3 
XANDC=X NDC+XNDC*. 39 


XNTR=1. 


“Nee 


} 
f,) 
! 


XADJ COW TINUED 


C 
‘s 

I=¥TRP=} : 
C IEXfRP = THE EXTRAPOLATION SWITCH 
c Ir ITEXTRP =2 . EXTRAPOLATION IS TO 1972 
c Le eee Ss Peers TO to 7s 


IF (lEXTRP.NE.2) GO TO 124 
XNTR=1.18893 
XTOT=XTOT*1.44717 
DON=DON*1. 18893 
XMD=XAD*1. 18893 
DED=DED*] . 18893 
XINC=XINC41.44717 
XNDC=XNDC*1.44717 
OOC=ODC*1. 44717 
12% CONTINUE 
Te CTYO8.GT.98.0R.1YOS.LE.71)GOTO482 
DO 419 J=1,21 
Te CEXEMP.GT.(XODED(21)4ERM)) GO TO 424 
IF CEXEMP.LT.(XODED(J)+ERM)) GO TO 419 
41€ CONTINUE 
419 CONTINUE 
469 FORMAT( 3X 67" J"-OLD MAX , 15) 
472 FORMATCSX 434 15) 
47) FORMA TCSX.* YOUNG J7 .15) 


XCHI=KD1I(J) 
XCH2=KD2 (5) 

_MSTA=XMSTOCJ) 
ADED=AGE(J) 
ADED=ADED*XNTR 
GO TO 425 


23 XCH1=4 
XCH2=4 
MSTA=2 
ADED=2 


425 CONTINUE 


IP GTSNIRP ewe Ge Ty 125 
XCHI=XCHI*XNTR 
XCH2=XCH2*XNTR 

a CONTINUE 


OLD TAX ACT 
SO=XCH1*ECHI +XCH2*ECH2 


Ong 


ron NO 


Ae 
& Sw 


43) 


PQA OIE) 


Gai EG IG x 
(iv 


Go) 
oS 


N 
Os 


OD) (CPW TERRE). Sa 


CONTINUED 


fPCASTAS EUS) BOL TO 4230 
SO=SO+XNTR*EXEMS (1) 


GO: TO- 4231 


SO=SO+XNTR*eEXEMC ) 


CONTINUE 
SOQ=SO+ADED «580. 


SA=XCHI*ECHIAXCH2*ECH2 


TE GASTA SE GOO) 435 
SH=SN+XNTR*EXEMS (2) 


GO TO 436 
CONTINJE 


SN=SN+KNTR*EXEMC2) 


CONTINUE 

SA=SN+ ADED*6595. 

GO TO 493 
CONTINUE 


COW TINUE 
DQ 34A J=1 ,4¢ 


Ir CEXEMP.GT. CXDED(480)4ERM))GO TO 346 
TPC EX EMP Sib CADED CI) HERM) 


CONTINUE 


XCo1=MCH1 (J) 
XCH2=MCH2( J) 
MSTA=XMSTACJI) 
GO TO 347 


XCHI=CEXEMP-2@00.)/852. 


X¥CH2=XCH1 

TYPE469,J 

MSTA=2 
CONTINUE 


Te ClEXTRP.NE.w2) 
XCRI=XCHI*XNTR 
XCH2=X CH2*XNTR 
CONTINUE 


OLD TAX ACT 


GQ TO 


126 


GU i) 53 4 


KADJ COATINUED © 


CD 


SJ=XCH1*ECHI+XCH2* EC: 
IPINSLA EO. 2 YGOTON355 
SO=XNTR*EXEMS( 1) +50 
SEK ape vs. 
SO=XNTR*EXEAC) +57 
CONTINUE 


== 


2 


WW Ut 
“OI 


NEW BILL 


PES LL hei Ge ENC UN 


SN=XCH1*ECH1 +X Cr2*ECH2 

IF(MSTALEO.2)GO TO 365 

SN=XNTR*EXEMS(2)+SN 

Gi TO. SS] 
365 SN=XNTR*EXEM( 2)+5N 

IF (LYOR.LT.4. AND. 1Y03.GT.98) SNSXNT2* 65 AxMSTA+SN 
eH CONTINUE - 
40¢6 CONTINUE 


OTAX=XTOT-SO 
OTAX =O TAX—DON-XMD-DED 
IF (OTAX.LE.9) OTAX=G 


& 
iS 
NTAX=XINC-SN 
NTAX=NTAX=DON=XMD-DED 
IF(NTAX.LE.@) NTAX=@ 
G 
IF(NRIN.GT.184) GO TO 203 
228 CONTINUE 
5 FORMAT (3X,7KIDS¢ .F 10.2) 
RETURN 
END 


e ® 


~ 16 — 


 XCRED 
SUBROUTINE CREDIT 


COMMON UEED¢BCRED ,CRED, ACRED ,XINCP ,CMAX ANAS 
CO MMON/NC/NC ,KCH 

COMMON/CD/CDO , CDN 

COMMON/TX/ TXN , TXO .NTAX,OTAY 

COMMON/FAM/ MSTA ,CHI ,CH2 

COMMON/COUNT/ NRIN ,NRINX,NBAD,IEND 
COMMON/PDATA/ASS ,PROPT 

COMMON/XKDS/ XCH1,XCH2 


INTEGER CHI ,CH2 
IPOUT=6 


581 CONTINUE 
C 


528 FORMAT ( 3X, 27HPROPERTY CREDIT NOT DEFINED) 
52] FORMAT (3X, 3QHANALYSIS NOW ASSUMES OPTION 42) 
ie 


IF(NC.NE.1)GOTO512 
BB=9 
XZ=0 
XZ=BCRED 
IF (PROPT.LE.BCRED) XZ=pRoptT 
GO TO 690 
C IF *G0 TO 690" ABOVE SALES Tay CREDIT SURPRSSED 
IF (MSTA.EQ.2) BB=1G,%2, 
IF (MSTA.NE.2) BB=1g. 4]. 
BB=33+10.*XCH1 +18. *XCHD> 
XY 1=BB-X INCP x) TAY 
XY 2=BB-X INCP&ANTAY 
IF (XY! .LE.@)xyisg 
| IF (XY2,.LE.2)xy2=g 
638 CONTINUE 
CDO=XZ+CRED*PROPT-X I NCP &()TAY 
CON=XZ+CRED*PROPT~X INCP&NTAY 
IF (CDO.LE.AMAS)CDOSAMAS 
IF (CDN.LE.AMAS)CDN=AMAS 
IF (CDN.GT.CMAX) CDN=CMAY 
IF (CDO.GT.CMAX) CDOQSOMAY 
CDO=CD0+XY I 
CONSCDN+Xy2 
GOTO553 
518 IF(NC.NE.2)G0T051] 
CDO=BCRED+CRED*PRYPT 
CDN=CDQ) 
GOT)55g 
511 IF(NC.NE.3)GuT0512 


- 17 - 


XCRED CONT INUED 


CDO=BCRED-X I NCP *0TAX 
CDN=BCRED~X I NCP*NTAX 

GOTO55B 
2 WRITECIPOUT, 520) 
NR ITEC IPOUT, 521) 
NC=2 
| GOTO531 

550 CONTINUE 

IF(CDO.LE.15@) GO TO 556 

551 FORMAT(3X,“XY17,F 10.2) 
552  FORMAT( 3X,” AMAS=" ,F19.2) 
553 FORMAT(3X,“CREDIT= ,F1G.2) 
554 FORMAT(3X,“PROPT=*,F10.2) 


| 
ls 


255 FORMAT (3X, “BAD BST OF. CRED’, F12.2,6X,7AT REC NO., 
Sa ai 
569 FORMAT(3X,“XYZ=% ,F13.2) 
561 FORMAT (3X, “MSTA>¢ ,12) 
1eRESS3,CON 


TYPE554,PROPT 
ea FORMAT( 3X, “NEW ASSUMED VALUE OF CRDIT’,F12.2) 
556 CONTINUE 
RETURN 
END 


SUBROUTINE RATESH 


e 
lc 
COMMON/TX/TXN, TXO,NTAX ,OTAX 
COMMON/K/KI ,K2 ,K3,K4,K5,NI1 
| COMMON/RSCA/ARSH (3,30) ,BRSH( 3,33) ,RSH( 3,3) 
| COMMON/INC/XLOS, XINC,XFOR,XDIV,X TOT 
COMMON/DCRED/ ODC,XNDC 
G 
| TXO=2 
TXN=@ 
| _ TXY= 
Ce aaxeo 
c 


DO) 499 I=1,K4 
| IFCI.EQ.2) IXY=NTAX 


LoL Ws (oer 


” RSCH CONTINUED 


IF(IT.EQ.1)TXY=0Tay 


IF(I.EQ.1)NJ=K3 
IF(I.EQ.2)NJ=K5 


DO 498 J=1 NJ 
IF(J.EQ.NJ)GOTO4gs5 
TF CTIXY GE.BRSH(I,J+1))GoTO419 
495 CONTINUE ; 
TX=(CTXY~BRSH(I,J)) *RSH(T. J) | 
TX=TX+ARSH(I J) 
GOTN42g 
419 CONTINUE 
498 CONTINUES 


4223 CONTINUE 
IF(I.NE.1) Go TO 45g 
TXO= TX 


—TXO=TXO-o0De 
IE CTXO, LEG) TXO=4 
GO TO 499 
459 CONTINUE 
TXN=TX 
TXN=TXN=XNDC 
IF(TXN.LE,2) TXN=3 
499 CONTINUE 
RETURN 
END 
- 7END 


XACUM 
SUBROUTINE ACCUM 


COMMON TNC TE, ecg ¥O8, SAM, SINNO .SUR FNAME. anp 
COM ANCZXLOS. XING, XFOR “xpTy oor 
cOMMON/DED/DED , XMD, DON. EX EMP 
COMMON/PDATA/ASS ,PROPT 
CuBAL Un TA/TAXESFTAC.PTAC, FORT, FETE, PETE, STAX TADU.parp. 
$CMBAL 
COMMON/CD/CDO, CDN 
COMMON/TX/ TXN »IXO,NTAX, OTAX 


i ke 
XACUM CONTINUED 


COMMON/NC/NNC, KCH 
COMMON/EXC/SN SQ) 
ne MMON/K/K1 4 K2 ,K3,K4,K5.Nj 
C00 39,305 Sg 2 325) 5 SOTAX (39,30), sNTAXC 30, 40). 
§ SCDO0( 34,38) ,SCDN( 3a . 36) »STOT( 30,33) ,SPROP( 30,39) 
COMM ONSST/STX0(39, 38) , STXNC 3B. ae | 
COMMON/KLAS/XK (38) , TXK( 3g) 
RO MMON/PROP/PKLAS(35) , Tp(25) 
COMMON/FAM/ MSTA CHT. Cup 
COMMON/SUM/SUMS( 35 ) | 
| COMMON/DIVcD; A IV¢38),SDIV( 38), XNDIV(39) 
COMMON/XKDS/ XCH1 XCHD 
COMMON/DCRED/ ODC. xNDe 
| INTEGER CH1.CH2 
XX=B 


XY=9 
XX=X¥CH] 
XY¥=XCH2 
XNTR=1. 
IEXTRP=} 
IF (TEXTRP.NE.2) GO Ty 699 
XNTR=1.19893 
XTOTS=XTOT/XNTR 
692 CONTINUE 
C | 
DO 628 I=1.x) 
IF CXTOT.GE. IXK(1+1))G070615 
lJ=I 
GOT0621 
- 
615 CONTINUES 
IF CXTOT.GE.IX<(K1)) Tyexy 
622 CONTINUE 
62! CONTINUE 


IF (LEXTRP.NE.2) GO To 692 

| XTOT=X TOT*XNTAQ 

692 CONTINUE 

S4(IJ, 1 SXTOT#SM (IJ. 1) 

| SM(IJ,2)=DED +#SM(IJ, 2} 
SM(IJ,3)=XMD +SM(1J3. 3) 
SMCIJ,4)=DON +SM( IJ. 4) 
SM(IJ,5)=EXEMP+SM(IJ 5) 

| SM(IJ,6)=SN +SM(IJ~8) 
SM(IJ,7)=S0 +5M(1327) 
SM(IJ,8)=TAXI+SM(1J8) 

| SM(IJ,9)=OTAX+5M (1379) 
SM(TJ,19)=NTAX+SM( 13.19) 

| SM(IJ,11)=FTAX+#SM(13211) 


Pte, ee 


~XACUM CONTINUED 


SM(IJ,12)=PTAX+SM(IJS,12) 
SMCIJ,13) =FFTX+SM(1IJ,13) 
SM(IJ,14)=PFIX+SM(1IJS,14) 
SMCIS, 1od=IX0 SNOT 1 5) 
SM(IJ,16)=IXN +SMCIJ,16) 
SMCIJ oA 7) =CDO 45M 1I oe) 
SM(IJ,18)=CDN +SM(IJ,18) 
SMCIJ,19)=PROPT+SM(TJ,19) 
SM(IJ,29)=SM(1IJ,29)+ASS 
SMCIJ,21)=SM(IJ,21)+1 
SM(IJ,22)=SM(1TJ, 22)+XX 
SM(IJ,23)=SM(01S,23) +XY 
IF (MSTA.EQ.1) SM(IJ,24)=SM(1J,24)+XNTR 
IF(MSTA.ZEQ.2) SMCIJ,25)=SM(1JS,25)+XNTR 
ODIVCIS) = ODIVCLI}+0DNC 
XNDIV(IJ) = XNDIVCIJ)+XNDC 
SULVCIS) “= SDIVCL IS) *xDLv 


IF(IEXTRP.NE.2) GO TO 695 
_- PROPT=PROPT/XNTR 
695 ’ CONTINUE 
DO 633 Ist ,K2 
IF(I.E9.K2)G0T0633 
IF (PROPT.GE. TP (I+ ))G0T0633 
IX=1 
GO T0631 
633 CONTINUE 
IF (PROPT.GE.TP(K2) )IK=K2 
630 CONTINUE 


631} CONTINJE 
LP ClextaP Ne. 2) CO TO 696 
PROP T=PROPT*XNTR 

696 CONTINUE 


C 

C 
SOTAXCIJS, TX) =SOTAX(CIJ,IK) +0 TAX 
SNTAXCIJS, TK) =SNTAXCIJ,IK) +NTAX 
SCDOGl talk =SCO0 61 J.) #CD0 
SCON(CII,TK) =SCONCIJ,IK? +CDN 
SNICEJS,IRY =SNICIS,IK) +A4NTR 
ott ole eo OLD Ret xX OT 
SPROPCIJ,IX) =SPROPCIJ,1K) +PROPT 
STXOCIJS, IK) =STXO( IJ, 1K) +TXO 
STXNCTIS, IKISSTXNCIS,IK)+TXN 

C 

2 

c 


RETURN 


- 2P}i - 


~ XACUM CONTINUED 


TABLA 


Se a 


4259 
4262 
4661 
. 4962 
4963 
4064 
4965 
4966 
4967 
4068 
4969 
4976 
4871 
4B72 
4Q73 
4074 
4975 
4276 
C 


END 


SUBROUTINE TABI 
COMMON/SKL/SM( 38,25) ,SOTAX (39,38) ,SNTAX( 30,38), 


$SCD0 (38, 38) , SCDN( 33, 33) ,SN1(33,3@), 
$ STOT(3@,38) ,SPROP( 38,32) 


COMMON/ST/STX0 (38, 30) ,STXN( 3G, 30) 
COMMON/K/KI ,K2,43,K4,K5,N1 
COMMON/PROP/PKLAS( 25) , TP (25) 
COMMON/KLAS/XK(3@) ,TXK (39) 
COMMON/DATE/ DI,D2,DT,RN 


IPOQUT=6 

DIMENSION STB( 30,30) 

D04959 IT=1,4 

IFC IT. LE.1)GOTO4312 

IF CIT.LE.2)G0TO4611 

IF CIT.LE.3)GOTO4981 2 

IFCIT.LE.4)GOTO4913 
FORMALDURSR DATE OF RUNS*, 1X ,A5,12, %. 7514514) 
FOQMATC THY) 


FORMATCIR=) 
FORMAT(3X,44H NUMBDR OF TAX FILERS IN EACH PROPERTY CLASS) 
FORMAT( 3X ot SSSR SSeS RS SSMS PSST Ss SS ST Ss SESS Ss SS SBE Vee! ) 


FORMAT(3X,7TOTAL INCOME IN EACH PROPERTY CLASS“) 
FORMAT (1443X , 7 He) ) 
FORMATC3X,F7.9,190(F10.1)) 


FOR MAT( 3X Pill SS 22 SSS SESS ss SS ess HST SSS SSS SSS Ses’ ) 
FORM@T(3X,7AVERAGE GROSS INCOME IN EACH PROPERTY CLASS7) 
FORMAT ¢ 3x 7 BESS See Sr SS SS SVs VST SST SSS Ses SST Ss SS Sess Ses) 


FORMAT (3X,7AVERAGE PROPERTY TAX PAID IN EACH CLASS#@) 
FORMATC 3X . 4 eS BS SSS SS SSS SS Ss BTSs esa = 
FORMAT (3X .“GROSS%) 

FORMAT( 3X ,“ INCOME’, 20X ,“PROPERTY CLASSES?) 

FORMAT( 3X ,“CLASS’% , 2X, 1GF10.8) 

FORMAT(3X,% TOTAL? ,10(FI9.1)) 

FORMAT(85X,“RUN NUMBER? ,F4.8) 


) 


Pa 5 


& 


C 


‘& 


C 


Pe oe a) 


CON TINUED 


4919 CONTINUE 


—- 22 - 


WRITECIPOUT,4959) DT,D!,D2 


WRITECIPOUT, 4976) RN 


WRITECIPOUT, 4861 ) 
WRITE( IPOUT, 4362) 
WRITECIPOUT, 4063) 
WRITEC IPOUT, 4061 ) 


GO T04825 


CONTINUE 


WRITECIPOUT, 4859) DT,D1I,D2 


WRITECIPOUT ,4061 ) 
WRITECIPOUT, 4064) 
WRITEC IPOUT, 4867) 
WRITEC IPQUT 4261 ) 


GOT04625 


4912 CONTINUE 


WRI TEC I POUT, 4959) DT,DI,D2 


WRITEC IPOUT, 4961 ) 
WRITE( IPOUT, 4868) 
WRITEC IPOUT, 4969 ) 
WRITECIPOUT, 4061 ) 


GOT049 25 


4613 CONTINUE 


WRITEC IPOUT, 4059) DT,DI,D2 


WRITEC IPOUT, 4061 ) 
WRITECIPOUT, 4073) 
WRITECIPOUT, 4871 ) 


4825 CONTINUE 


IB=K2/19 

IB=IB+] 
IF(K2.EQ.28) IB=2 
IF(K2.LE.10@) IB=1 
IP=¢ 

IX=9 


DO4d9081J=1,1B 
IX=IX+] 

TY=|+IP 

IP=10*1IX 

IF CIP 2GEK2) 1Pp=K2 
IkK=lY 

WRITECIPOUT ,4972) 


~~ TABI 


CTI. 


4815 


COTY NIH Pea 


4%} 
4283 


4616 


4083 
4082 


4AD\7 


- 23 - 


CONT INUED 


WRITECIPOUT, 4873) 
WRITECIPOUT,4874),(PKLAS(JP) ,JP=IK,IP) 
WRITECIPOUT, 4065) 
ARITECIPOUT, 4061 ) 


HF CIT.LE.1 GOTO4015 
Ir (IT.LE.2)G0T0401 6 
IFCIT.LE.3)GOT04817 
IFCIT.LE.4)G0T04418 


CON TINUE 


DO43986I=1 ,K1 


WRITECIPOUT, 4266) ,XK(1) ,(SNICI,JP),JP=IK, IP) 
CONTINUE 

WR ITEC IPOUT, 4961) 

WRITECIPOUT,4675) (SNI(KI+1,JP),JP=IX, IP) 
WRITECIPOUT, 4262) 

GOTO4879 
CONTINUE 

D04982I=1,X1 
WRI TECIPOUT 4066) ,XKC1),(STOT(I JP) ,JP=IK,IP) 
CONTINUE | 
WRITECIPOUT, 4261) 
WRITECIPOUT,4275) ° (STOT(KI+1 ,JP) ,JP=IX,IP) 
WRITECIPOQUT, 4369) 

GOTO4979 
CONTINUE 

DO49841=1 ,Kl 

DO4985JP=1X, IP 

LE (SNI CI,JP).EQ.0)GQT0409 1 

STB(I, JP )=STOT(I,IP)/SNICI,JP) 

GOTO04385 

CONTINUE 

STB(1,JP)= 
CONTINUE 
W2ITECIPOUT, 4966) .XK(1), (SIBCI JP) ,JP=IK,IP) 
CONTINUE 

WRITECIPOUT, 4368) 


GOTO4979 
CONTINUE 

DO40861=1,K1 

DQ4G387JPSIK,IP 


uae 


| TABI CONTINUED 


IFC(SNICI,JP) .EO.3)GOT04992 
STB(I,JP)=SPROP(I,JP)/SNICI,JP) 
GOT0 4087 
4@92 CONTINUE 
STB(I ,JP)=3 
4087 CONTINUE 
WRI TEC IPOUT 4066) ,XK(I),(SIB(I,JP) ,JP=IK,IP) 
4986 CONTINUE 
WAITECIPOUT, 4060) 
C 
C 
4079 CONTINUE 
4898 CONTINUE 
4050 CONTINUE 
RETURN 
END 


NTAB2 


SUBROUTINE TAB2 

COMMON/ SKL/SM( 38.25) , SOTAX (30,33) , SNTAX( 39, 39) 
$SCD0 (34,39), SCDN(32, 30), SN1(3d, 30), 
$ STOT( 32, 32) »oPROP C38, 3) 

COMMON/ST/STX0(32, 33), STXN( 38, 33) 

COMMON/K/K1 .K2,K3,K4, K5, Nt 

CONMON/PROP/PKLAS( 25) ,TP(25) 

CO MMON/KLAS/XK(3@) , TXK (32) 

COMMON/DATE/ D1,D2,DT.RN 


> 


O00, 


IPOUT=6 

DIMENSION STB(39,30) 
D04450 IT=1,5 
IFCIT.LE.1 )GOTO491@ 
Pe CL YSCE. 2 7G0TO40 11 
IF (I T.LE.3)GOTO481 2 
IFCIT.LE.4)GOT0491 3 
IF CIT.LE.5)GOTO04014 


iG? 


4459 FORMAT(85X,“DATE OF RUN#“,1X,A5,12,7,7,1X. 14) 


—- 25 - 


/NTAB2 CONTINUED 


4063 FORMATCIHI) 
4061 FORMAT(IH=) 


| 4062 FORMAT(3X,“AVERAGE TAXES PAID,OLD TAX STRUCTURE”) 
4063 FORMAT(3X,¢ sssssssescesessssss=ssssseseesesascseesssas/) 


Sh FS LS A TS ee He eee ame eS OD SD coe wee oe eee LS ST SS eS See ee we) GES come ae cae sone 


4066 FORMAT(3X,F7.0,10(F10.1)) 


4067 FORMAT( 3X 9? SSSsss ee essssss2s= Sssrsssessssssc=eas’ ) 
4968 FORMAT(C3X,“AVERAGE DISPOSABLE INCOME?) 
4969 FORMATC3YX 9? BS Satasee sess esas tees eee ss sess e=== 
4076 FORMAT(3X,’DISPOQSABLE INCOME AS % GROSS INCOME,AV.~) ‘ 
497) FORMAT (3X 9? BSSS2 sass se sess ssa 2 eee eee eee ee ) 


4072 FORMAT(3X,“GROSS~) 

4973 FORMAT(3X,“ INCOME’ ,20X,“PROPERTY CLASSES?) 

4074 FORMAT(3X,“CLASS” ,2X,1GF19.9) 

4975 FORMAT(3X,“AVERAGE PROPERTY TAX CREDIT, NEW STRU 
4076 FORMATC3X ) ¢ SSSRSR Ss ess sees sssSe2 sess Heese == == 


4377 FORMAT (85X,“RUN NUMBER’ ,F4.@) 


Bey 


i 


i 


4219 CONTINUE 
WRITECIPOUT,4959) DT,D1I,D2 
WRITECIPOUT,4077} RN 
WRITECIPOUT, 4061 ) 
WRITEC IPOUT, 4962) 
AR ITEC IPOUT, 4063) 
WRITECIPOUT, 4361} 


GOT04825 

4011 CONTINUE 
AAI TECIPOUT, 4359) DT ,DI,D2 
WRI TEC TPOUT, 4461) 
WRITECTPOUT, 4264) 
WRITEC IPOUT, 49567 ) 
WAT TEC TPOQUT, 4361) 


GOTI4925 

4012 CONTINUE 
WRITECIPOUT,.4259) DT,DI,D2 
WR ITEC IPOUT, 4261) 
W2I TEC IPOUT, 4968) 
WRITECIPOUT, 4069) 
WQITECIPOUT, 4261) 


ae 


GITO4G25 

40913 CONTINUE 
WRITECIPOUT, 4059) DT,D1,D2 
ARI TEC IPOUT, 4961) 


—- 26 - 


“NTAB2 CONTINUED 


WRITECIPOUT, 4879) 
WRITECIPOUT 4871) 
GOT04825 

4914 CONTINUE 
WRITECIPOUT,4059) DT,D!I,D2 
WRITECIPOUT, 4061) 
WRITECTPOUT, 4075) 
WRITECI POUT, 4076) 


6 

4625 CONTINUE 
IB=K2/1@ 
I3=1B+} 
IF(K2.EQ.29) IB =2 
TP CR2.LE.10) fee 
[P= 
IX=0 


Se OMS? 


DO48931J=1 ,1B 
IX=IX+1} 

LY=1+IP 

IP=10*1IX 

IFC IP.GE.K2) IP=K2 
IK=l1Y 
WRITECIPOUT, 4972) 
WRITEC ITPOUT, 48733 
WR ITECIPOUT,4374), (PKLAS( JP) ,JP=IK.IP) 
WRITEC TPOUT, 4065) . 
WRITECIPOUT, 4361 } 


Sher 


IFCIT.LE.1 )GOTO4915 
IFCIT.LE.2)GOTO4316 
IF CIT. LE. 3)GOTO4917 
IFC(IT.LE.4)G0T04318 
IF CIT.LE.5)G0T04219 


4615 CONTINUE 


DO04d80T=1,K1 


FS. 


DO4931JP=IK,IP 

IF(SN1 (1 ,JP) .E9.9)GOT04939 
ST8C1 JUPJ=STXO(] ,JP)/SNICI,JP) 
GO 104631 


4033 
4032 


4982 


4017 


4092 
4287 


4086 


4219 


- 27 - 


CONT INUED 


CONTINUE 
STB(I, JP) =2 
CONTINUE 
WRI TEC IPOUT, 4966) ,XK(I), (STB(I,JP) ,JP=IK, IP) 
CONTINUE 

WRITECIPOUT, 4262) 

GOT04979 
CONTINUE 

DON4882I=1 ,K1 

DO4932JP=1K,IP 

IF(SN1 (I ,JP).E9.9)G0T04933 
STB(I,JP)=STXN(I,JP)/SNI(I,JP) 
GOT04832 
CONTINUE 

ST3(1I,JP)=¢ 

CONTINUE 

WRITECIPQUT,4966) XKCI),(STBC(I,JP) ,JP=IK, IP) 
CONTINUE 

HQ ITEC IPOUT, 4262) 

GOT04379 
CONTINUE 

DO44341=1,K1 

DO4385JPs1xX,IP 
IF(SN1(1,JP).£9.9)GOTO499 1 
STB(1I ,JP)SSTOTCI,JP)-STXN(I,JP) 
STB(1,JP)=STB(1,JP)/SNI(1,JP) 
GOTO4935 

CONTINUE 

STACI, JP) =3 
CONTINUE 

#2 ITEC TPQUT, 4366) ,XK(1) ,(STB(I,JP) , JP=IK, IP) 
CONTINUE 


Axi TEC IPOUT, 44362) 


GOUTD4379 
CONT TINUE 

DO43386I=1 ,KI 

D943375IP=1K,I1P 

IF (SNiCT,JP).E0.3)G0TO04992 
STBCI,JP)=STOTCI,JP)-STXN(I,JP) 
STIBCI,JP)=(STB(I,JP)/STOT(I ,JP))*100, 
GO 104487 
CONTINUE 

STB(1I,JP)=2 
CONTINUE 
WRITECIPOUT, 4066) ,XK(I) ,(ST3(1,JP), JP=IK,IP) 
CONTINUE 

WRI TEC IPOUT, 4962) 

GOUTON4E79 

CONTINUE 


-~ 28 - 


NTAB2 CONTINUED 


DO 4893 I=1 ,Kl 
D04034JP=1xX,1P 
IF(SNICI,JP).EQ.8)GOT04935 
STBCD UP =SCDN CL JPOZSNT CEP) 
GO 1049 34 
4935 ‘STECT IPI =0 
4234 CONTINUE 
WRI TECIPOUT, 4066) ,XK(1I),(STIB(1,JP) ,JP=IK,IP) 
4893 CONTINUE 
WRITECIPOUT , 4860) 
a: 
iS 
4979 CONTINUE 
4899 CONTINUE 
405@ CONTINUE 
RETURN 
END 


END 


TAB3 


SUBROUTINE TAB3 
COMMON/SKL/SM(38,25) ,SOTAX( 38,30) ,SNTAX (39,338), 
$SCDO( 33, 38) , SCDN( 39, 39) ,SN1 (39,390), 
> SLOTS, 33), SPROP (30, 30) 
CO MMON/ST/STX0(39, 38) ,STXN(30, 30) 
COMMON/K/K1,K2,K3,K4, K5, NI 
COMMON/PROP/PXLAS(25) , TP(25) 
COMMON/KLAS/XK (30) , TXK (30) 
COMMON/DATE/ DI,D2,DT,RN 


ee eS) 


IPOQUT=6 
& DIMENSION STB(30, 39) 
DQN44956 IT=1,4 
IFCIT.LE. J )GOTO4012 
IFCIT.LE.2)GOTO4G611 
IFSIT.LE.3)G0T4G1 2 
IFCIT.LE.4)G0T0401 3 
4359 FORMAT(84X ,“D@TE OF RUN?:7,1X,A5,12,7,7,1X,14) 
4Q@6G FORMATCIH!) 
4061 FORMATCIH-) 


4011 


_ 4225 


—- 29 - 


CONTINUED 


FORMAT(3X,% TOT@L TAXES, NLD SXSTDL (EXBL.PROP.TAX )7) 
FORMAT( 3X ,? 0 SP Stas ees ses sss Ses sss sss Ses SSeS sss == ==e==/ ) 
FORMAT(3X,’7TOTAL TAXES, NEW SYSTEM (EXCL.PROP.TAX)7) 
FORMAT (11 (3X, (H---—-— sxe) 
FORMATC3X,F7.0,10(F 19.1 )) 
FOQMAT (3X 4% =ssesss2se=2=s=s=2= 


FORMAT(3X,% TOTAL PROPERTY TAX CREDIT,OLD SYST 

FORMAT (3X 9? BSS Sess Sssss sss Ses Ses SssSsz sss sse= ss ====/ ) 
FORMAT(3X,% TOTAL PROPERTY TAX CREDIT, NEW SYSTEM?) « 
FORMAT (3X , 7% sss sesee= s2es2 ss2see2sese2ee2rss2sse=5 ==> ) 


FORMAT (3X ,“GROSS4 ( 

FORMAT (3X ,% INCOME’ , 20X, “PROPERTY CLASSES) 
FORMAT (3X ,7CLASSY ,2X, 19F19.9) 

FURMAL ona MYOTAL? 1D CFE1IO.12) 
FORM@T(85X,7RUN NUMBER’ ,F4.2) 


CONTINUE 
WRITECIPOQUT,4459) DT,DI,D2 
ARITECIPOUT,4276) RN 
WAQITECIPOUT 4461) 
WRITEC IPOUT , 4062) 
WRITECIPOUT, 42363) 
WRITECIPOUT,4261) 


GOT04825 
CONTINUE 

WRITECIPOUT, 4259) DT,D1,D2 
 WRHTECIPOUT, 406) } 

WRITECI POUT, 4864) 

ARITEC TPOUT 4967) 

ARI TECIPOUT,42861) 


G3T043825 

CONTINUE 
WRITECIPOUT, 4959) DT,DI ,D2 
WRITECIPOUT, 49061 ) 
WRITEC IPOUT, 4268) 
WRITECIPOUT, 4469) 
WRITECTPOUT, 4861) 


GOTO04925 
CONTINUE 
AQITECIPOUT,4@58( DT,D!I,D2 
NRITECIPOUT , 4061) 
WRITECIPOUT, 4970) 
ARITECIPOUT, 4071) 


CONTINUE 


TAB3 


aan 


4215 


SB ES Ne Se 7 > es 


4981 
4089 


4017 


- 39 - 


CONTINUED 


IB=K2/13 

IB=IB+I 3 
IF (K2.EQ.29) IB=2 
IP CK2.CE.12) 1B] 
IP=6 
IX=d 


DO42961J=1 ,IB 
IX=IX+1 

TY=1+IP 

[P=| O*IX 

IFC IP.GE.K2) 1P=K2 
IK=LY 

WAT TECIPOUT, 4972) 
WR TTEC IPOUT: 4973) 
WRITECIPOUT, 4074) , (PKLAS(JP( ,JP= IK, IP) 
WAI TEC IPOUT, 4365) 
NRITECIPOUT, 406] ) 


HF CHT .LE.1 )GO0TO4015 

PRL) LO. 21G0Te 4016 
IP CIT. CE.3)G0T04317 
IFCIT.LE.4)G0TO4318 


CONTINUE 


DO4ZBAT=1 KI 


NRITECIPOUT ,.4966(,XK(1),(STXO(I JP) ,JP= IX, IP) 
CONTINUE 
ARITECIPOUT, 4961) 
WRETECIPQUT,4075) (STXOCKI1+1,JP) ,JP=IK.IP) 
WRITECIPOUT, 43634) 
SO T04479 
CONTINUE 
DO4882T=1 ,K1 
NRITECIPQUT, 4066) ,XK(1) ,(STXN(I,JP) ,JP=IK,IP) 
CONTINUE 
WRITECIPOUT, 4961 ) 
WRITEC IPOUT, 4275) CS (XNGR ir), JP) IPSale poy 
ARITECIPOUT, 4060) 
GQ T04479 
CONTINUE 


—- 3] - 


TAB3- CONTINUED 


D04084I=1 ,KI 

WRITE( IPOUT, 4966), XK(I),(SCDO(I, JP) ,JPSIK, IP) 
4984 CONTINUE , 
| WRITECIPOUT, 4261) 

WRITECIPOUT ,4075) (SCD0( J9+1,JP),JPSIK,IP) 

WRITECIPOUT, 426) 


GOT04G79 
4918 CONTINUE 
DO4886H=1 ,KI 
WRITECIPOUT, 4666), XK(I) ,(SCDN(I,JP) ,JP=IJ, IP) 
49686 CONTINUE 
WRITEC IPOUT, 4061 ) 
WRITECIPOUT, 4075) (SCDN(KI+1,JP) ,JP=IK,IP) 
WRITECIPOUT 4263) 


ore) 


4979 CONTINUE 
4096 CONTINUE 
4350 CONTINUE 
RETURN 

END 


TAB4 


SUBROUTINE TAB4 
COMMON/ SKL/SM (32 625) ,SOTAX (30,30) , SNTAX(38,32), 
$SCD0 (39,38), SCDN( 39,39) ,SN1(30,30), 
$ STOT(30,39) ,SPROP (39, 33) 
COMMON/ST/STX0 (33,30) ,STXN( 30,32) 
COMMON/K/K1! ,K2,K3,K4,K5,NI 
COMMON/PROP/PKLAS( 25) , TP (25) 
CO MMON/KLAS/XK( 39) , TXK (39) 
COMMON/DATE/ DI ,D2,DT,RN 
COMMON/FAM/ MSTA,CHI,CH2 
COMMON/SUM/SUMS( 25 ) 
COMMON/DIVCD/ ODIV(39) ,SDIV(34),XNDIV( 3a) 


oleke) 


IPQUT=6 
DIMENSION STB(38,3@) 


TAB4 


C 
C 


4011 


- 32 - 


CONTINUED 


D04953 IT=1,4 

IF(IT.LE.1)GOTO4210 

IFCIT.LE.2)G0T0491 1 

IF (IT.LE.3)GOT04812 

IF(IT.LE.4)GOT04013 2 
FORMAT(85X,“DATE OF RUN!7,1X,A5,12,%,%, 1X,14) 
FORMAT(IH1) 
FOQMAT(1H=) 
FORMAT( 3X “SUMMARY TAX DEDUCTION DATA“) 


FORMA T( 3X ,6(5H=====) ) 

FORMAT (3X,7 INCOME TOTAL DEDUCTIONS 
$ MEDICAL DONATIONS? ) 

FORMAT(3X,7CLASS INCOME # 
S HeECEIPLS oo) 

FORMATCIX,F3.0,4F15.2) 

FORMAICSX,SH-~--—-—-~— von 9 409% Sh aman nm 2X )) 

FORMAT(C 3X,“ INCOME PERSONAL Bol. EXEMY 
$ AV.EXEMP? ) 

PORMAT(3X,7CLASS EXEMP. NEW OLD 
oc) 

FORMAT( 3X,7 INCOMES NO.OF CH=N NO SOP CH=N 
$ NO. OF NO.OF? ) 

FORMATC3X,7CLASS UNDER 16 OVER 16 
$ Si NGLES*) 

FORMA T( 3X.“ INCOME TOTAL CRED ANa CRED 
$ AY SCHED? } 

FORMATC3X,“CLASS OLD OLD 
$ NEW? ) 


FOPAATC3IX,7SUMMARY TAX EXEMPTION DATA?) 
FORMATC3X,7SUMMARY DEPENDENCY DATA?) 
FORMATC3X,“%SUMMARY TAX CREDIT DATA?) 
FORMAT(85X ,“RUN NUMBER? ,F 4.2) 


CONTINUE 
WRITEC I POUT, 4959) DT,DI,D2 
WRITECIPOQUT,4@77) RN 
NRITECIPOUT, 4961) 
WAI TEC IPOUT, 4062 ) 
WRITEC IPOUT, 4363) 
WRITECIPOUT, 4661) 
WRITECI POUT, 4964) 
NRITECI POUT, 4265) 
WRITECIPOUT , 4467) 
HRI TEC IPOUT, 406} ) 


GO T04925 
CONTINUE 


EST. SXEMP 


NEW 


TAXPILERS 


TOTAL CRED 


NEW 


TAB4 


C 


CON TINUED 


WAITECIPOUT ,4959) 
WRITECIPOUT, 4961) 
WRITECIPOUT, 4974) 
WRITEC IPOUT, 4963) 
WRITECIPOUT, 4041 ) 
W2 ITEC IPOUT, 4068) 
W2ITECIPOUT, 4069) 
WRITE( IPROUT , 4067) 
WRITECIPOUT , 4861) 


GOT04825 


4012 CONTINUE 


e 


WRITEC IPOUT, 4959) 
WII TEC IPOUT 4061) 
WRITEC IPOUT, 42875) 
WRITECIPOUT, 4963) 
WRITECIPOUT, 4961 ) 
WRITECIPOUT, 40723) 
WRITECIPOUT, 4971) 
WRITECIPOUT, 4267) 
WQRITECIPOUT, 4361) 


GOTO4925 


4613 CONTINUE 


Pants. 


?) 


[ie ae OQ 


CC) 


4925 


4G15 


WRITECIPOUT, 4259) 
WRITECIPOUT, 4361 ) 
WQITEC IPOUT, 4376) 
W2ITECIPOUT ,4263) 
WRITECIPOUT , 4872) 
AQITE( IPOUT, 4873) 
WIL TEC IPOUT, 4967) 
AWQITECIPOUT, 4361) 


CONTINUE 


DT.,.Di,D2 


DY.01502 


DIGhTod 


IFCLT.LE. 1 GOTO4@15 
IFCIT.LE.2)G0T04016 
IFCIT.LE.3)GOTO4017 
IFCIT.LE.4)G0T0491 8 


CONTINUE 


X=4 


D)4g8431=1, KX) 


- 34 — 


TAB4 CONTINUED 


4281 WRITE CIPOUT ,4066) ,XK(I),(SM(I,J) ,J=1,4) 
4289 CONTINUE 
WRI TECIPOUT, 4261) 
WR ITEC IPOUT, 4966) ,X,(SUMS(J) ,J=1 4) 
WRITECIPQOUT, 496) 
GOTO4979 
4816 CONTINUE 
D04682T=1 , KI < 
PerCshOl vel yc LE.) GO. TO 4396 
STB(1,1)=SM(1,7)/SMCI 21) 
GO TO 4897 
4596 DiC 1320 
4097 CONTINUE 
4083 COTE Ne ot +4966) .XK(T) ,SMCI,5) ,SM( 1,7) ,SHCI,6) ,STBCT, 1) 
4682 CONTINUE 
WR ITECIPQOUT, 4961 ) 
WIITECIPOUT, 4966) ,X,SUMS(5) ,SUMS(7) SUMS (4) 
WRITECIPOUT ,4@63) 
GOTO04979 
4017 CONTINUE 
D)493841=1,K1 
TTROE nt 11088) + XK(T) ,SMCT, 22) ,SKCT, 23) ENC HaD yt SUE 
4084 CONTINUE 
WRITECIPOUT,4251 ) 
WT TECIPOUT, 4965) ,X ,SUMS( 22) , SUMS( 23), SUMS(21) 
WRITECIPOUT, 4462) 


GOTO4379 
4018 CONTINUE 
DO43a6I=1 xX} 
I=(SM(1I,21).LE.3)GO0 T0402 
STECT,2)=5SM(1,17)/SM(1,21) 
ST3¢1,3)=SM(1,138)/SM(I,21) 
G)104387 
4092 CONTINUE 
ST3(1,3)=0 
SisCl. 2 = 
4087 CONTINUE 
SOMES on 000) -XKC1).,SHCT. 173), STRCT, 2) eMC. (eye tees 
4086 CONTINUE 
WRITECIPOQUT, 4066) X,SUMS(17),X,SUMS(138).Xx 
WRITECIPOUT, 4360) 


4079 CONTINUE 
4490 CONTINUE 
4356 CONTINUE 
RETURN 

END 


- 
a> 
Ww 
UI 


QQ 


4959 

4268 

406} 
4362 
42963 
4064 


4865 
42366 
AD67 
4868 
c 

4069 
4977 


4378 
4010 


4371 
42072 
4974 


4075 
53 2D 
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SUBROUTINE TABS 
COMMON/SKL/SM( 38,25) , SOTAX (39,38) »SNTAX (38,32), 
$SCD0(33,32), SCDN(32, 3) , oN tS2:, 30), 
$ STOT (39, 30) SPROP (33, 33) 
COMMON/ST/STX0 (32, 38), STXN(33,390) 
BNMMON/K/KI ,K2,K3.K4,K5,N1 
COMMON/PRO?P/PKLAS( 25), IP(25) 
COMMON/KLAS/XK(38) ,TXK(3@) 
COMMON/DATE/ DI ,D2,DT,RN 
COMMON/FAM/ MSTA,CHI ,CH2 
CO MMON/SUM/SUMS (25) 
COMMON/DIVCD/ ODIV(30) ,SDIV( 38) ,XNDIV( 30) 


IPQUT=6 

DIMENSION STB(38,3@) 

DO0445@ IT=1,4 

IFCIT.LE.1)GOTO491¢ 

IFCIT.LE.2)G0TO4311 

IFCIT.LE.3)GOTO431 2 

I= (IT.LE.4)G0T04313 
PORMAT(65X,“DATE OF RUNS4, 1X A5,12,7.7,1%0143 
FORMATCIH?) 
FORMAT CTH=) 
FORMATC3X,“°SUMMARY TAX DATA?) 


FORMAT(3X,6(5H==s===)) 
FORMAT(3X,7INCOME TAXES TAXES 
$ TAXES TAXES?) 
FORMAT(3X,7CLASS TOTAL, OLD 
SAV. OLD TOTAL, NEW AV. NEW?) 
FOQMATC1X,F8.9,4F15.2) 
FORMAT 3X ,8H=—--—-—= , 2X 64 (5X, 8SH--—— ~= ~-,2X)) 
FORMATC3X ,“ INCOME CREDIT % 
SCREDIT % CREDIT % CREDIT %7) 
FORMAT(3X,“CLASS GR.INC TAXES 
$ GR.INC TAXES”) 
FORMAT ( 3X,” (OLD) (OLD) 
$ (NEW) (NEW) 7) 
FORMAT(3X,7 (TAXES EXCLUDE EFFECT OF CREDIT)~) 
FORMAT ( 3X,“ INCOME TAXES % TAXES % 
$ TAXES % TAXES %7) 
FORMAT (3X,7CLASS G2.INC GR.INC 
S GR.INC GR.INC7) 
FORMAT ( 3X,” LSt CORED. 
$ LS.CRED.7) 


FORMAT(3X,7INCIDENCE OF PROPERTY TAX CREDIT’) 
FORMAT(3X,7INCIDENCE OF TAXES7) 
FORMAT(3X,“DIVIDENDS?4) 


& 
c 


c 


c 


461] 


CONTINUED 


FORMAT(3X, “INCOME 


NEW DIV?) 


FORMA TUSK, “CLASS 


CREDIT 


CONTINUE 


WRITE CIPOUT, 4059) 
WRITEC IPOUT, 5203) 
WR ITECIPOUT 4061) 
WRITEC TPOUT , 4962) 
WRITECIPOUT, 4063) 
WRITECIPOUT, 4061 ) 
WRITECIPOUT, 4064) 
WR ITEC IPOUT, 4065) 
WRITECIPOUT, 4967) 
WRITECIPOUT, 4078) 
WRITECIPOUT, 4061) 


GOT04925 


CONTINUE 


WRITECIPOUT , 4859) 
WRITECIPOUT, 4361) 
WRITECIPOUT, 4974) 
ARI TEC IPOUT, 4063) 
WRITECIPOUT, 4961) 
WRITECIPOUT, 4463) 
WRITECIPOUT, 4069) 
WRiTECIPOUT,4077) 
WRITECI POUT, 4267) 
ARI TECIPOUT 43078) 
WRITECIPOUT, 4061 ) 


GO 104925 


4612 CONTINUE 


WRITECIPOUT, 4059) 
WRITECIPOUT, 4061) 
WRITECIPQUT, 4875) 
MAREE CIPOUT, 42639 
WRITECIPOUT, 4261) 
WRI TEC IPOUT, 4972) 
NR ITECIPOUT, 4971 ) 
Wie PT ECT POUT T4972) 
WRITECIPOUT, 4077) 
N2ITECIPOUT, 4267) 
WRITECIPOUT , 4961) 


GO 104325 


4013 CONTINUE 
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TOTAL OLD DIV 


DIVIDENDS 
CREDIT) 


FORMAT (85X ,“RUN NUMBER? ,F4.@) 


Di,D) 02 
RN 


DT, D2 


DOD? 


TABS 


4625 


CPO CD 1D 


4615 


Sime © 45k) 


4216 


4996 


4943 
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CONTINUED 


WRITECIPOUT, 4859) DT.D1.D2 

WRITECIPOUT, 4261) 

WRITECIPOUT, 5922) 

WRITEC IPOUT, 4263) 

WRITECIPOUT, 4961) 

WRITECIPOUT,59@1) 

WRI TEC IPOUT 5922) 

WRI TEC IPOUT, 4267) 

WRITECIPOUT, 4061 ) i 


CONTINUE 


TPCT Totes | G0104015 
IF CIT.LE.2)GOTO4416 
IFCITILE.3)G0104317 
IF(IT.LE.4)GOTO4318 


CONTINUE 


X=0 


DO4é8231=1,K1 

IPCSMCL,21).LE.a)S0 TO 404g 

SLB St IS ONC AS) 4 SMC 21) 
CJed@)/SML 1 aod ) 


WRI TECIPOUT, 4266) ,XK(1),SM(1,15),STB(I,1),SM(1,16),STB(I.2) 
CONTINUE 

WRITECIPOUT, 4061) 
WRITECIPOUT, 4266) , SUMS(15) ,X,SUMS( 16) ,X 
WRITECIPOQUT, 4262) 

GOT04379 
CONTINUE 

DO 40821=1, XI 

IF(SM(1,1)-LE.2) GO TO 4296 
STB(I,3)=SMC1,17)/SM(I, 1) 
STB(1,4)=5M(1,18)/SM(1,1) 

GO TO 4843 
STB(1,3)=2 

STB(1,4)=2 
CONTINUE 

IF(SM(I,15).LE.@)GO TO 4244 


TABS 


4344 
4345 


4047 

4346 

4097 
4883 
4082 


4¢17 


4248 


ox®) 


4279 
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CONTINUED 


STB(I,5)=SM(1,17)/SMC(I,15) 

GO 104945 
STB(I,5)=0 

CONTINUE | 

IF(SM(I,16).LE.2) GO TO 4046 
STB(1,6)=SM(1,18)/SM(I,16) 

GO TO 4297 
CONT INUE 
STB(1,6)=0 
CONTINUE , 
WRITE( IPOUT,4066) ,XK(I) ,STB(I,3),STB(I,5),STB(I,4) STB(I,6) 
CONTINUE 

WRITE( IPOUT, 4861) 

W2 ITEC IPOUT, 4460) 

GOTO4879 
CONTINUE 

D04084I=1,x1 

IF(SM(I,1).LE.3) GO 104048 

STB(1,7)=SM(1I,15)/SM(I,1) 
STB(I,8)=(SM(I,15)-SM(I,17))/SM(I, 1) 
STB(I,9)=SM(1,16)/SM(I,1) 
STB(I,10)=(SM(I,16)-SM(1,18))/SMCI,1) 

GO TO 4249 

STB(1,7)=3 

STB( 1,8) =0 

STB(I,9)=0 

STB(I,19)=3 
CONTINUE 

WRITECIPOUT, 4066) ,XK(1) ,STB(I,7),STB(1,8),STB(1,9) .STB(1.1@) 
CONTINUE 

MQITECIPOUT, 4360) 


GIU104579 
CONTINUE 

DO403861=1,K1 
NRT TEC TPOUT, 4066) ,XK(I),SDIV(I) ,ODIV(I) ,XNDIV(I) 
CONTINUE | 

WRITECIPOUT, 4262) 


CONTINUE 


4690 CONTINUE 


4250 


CON TINUE 
RETURN 
END 


Appendix G 
GUELPH MATCHING PROGRAM 


Harry Newton 


November 1, 1971 


The following pages present a description of the above-mentioned 
program, including the assumptions made and the steps taken in 


writing the program, and the problems encountered in testing 


the program, 
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4. 


I. Introduction to the Matching Programs 


This program takes the property tax records of the residents of 


Guelph and tries to match them with their personal ineome tax 


records. 


The only pieces of information that are common to both the property 
tax tapés and the personal income tax tapes are riames and addresses. 
The names and addresses appear in full on the”property tax records, 
but on the personal income tax records, only the First ten letters 


of the surname and the first five letters of the given name appear. 


Hence, the sole criteria for a match are the names and the addresses. 


A certain match is defined as a property tax record and a personal 
income tax record with 
i) identical surnames (first ten letters), 
ii) identical addresses (house no. and street name), 
and iii) the given name on the personal income tax record 
is identical to one of the given names on the 


property tax record (first five letters). 


A_ doubtful or possible match is defined as a property tax record 
and a personal income tax record with 
| i) identical surnames, 

ii) identical addresses, and 


iii) different given names. 


5. Doubtful matches are important for the following reasons: 
i) the possibility that the husband is the only 
income taxfiler in the family, but the property 
is in the wife's name, or vice versa. 
ii) the possibility that more than one (or more than 

two) members of the family are income taxfilers. 
For instance, a husband and wife, both whom are 
listed on the property tax record, may both be 


income taxfilers. In addition, other members of 


{3 


the family, who are not listed on the property 
tax record, may also file income tax returns. In 
hae case, doubtful matches will be useful to the 
user who is trying to calculate total income of 
a particular family. Also, the user may wish to 
compare the incomes of the various members of 
the family. 
6. Given the above definitions, one sane set to devise an algorithmic 


, 


procedure to search for these matches. 


General Flowchart of the Program 


SORTED 
PROPERTY .- 


SORTED 
INCOME TAX 
RECORDS 


RUN CONTROL 
CARDS 


MATCHING 


PROGRAM 


VITAL STATISTIC 
AND UNMATCHED 
PROPERTY TAX 

RECORDS 


UNMATCHED 
INCOME TAX 
RECORDS 


MATCHING 
RECORDS 
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EE, Preparation of Input Tapes 


The property tax records were sorted alphabetically by the surname 
and then by the given name of the’ first assessed person on the 


record. 


The Perec aay income tax records were sorted sae een by the 


surname te then by the given name of the taxfiler. 


In preparing an input tape of property tax records for the program, 
the following changes were made to the data tapes supplied by the 


Department of Municipal Affairs. 


i) The name of the last ten assessed persons on each 
record were deleted. Generally, this space was 
blank anyway. The names of the first five assessed 
persons were retained but only the first two names 
are used in the program. 

ii) All of the data pertaining to Sha neuey dimensions 


was deleted. 


NOTE: The above two steps permitted the property tax record to 
be shortened considerably (from 645 characters to 
265 characters). The subsequent saving of tape space 


is obvious. 


iii) Each record was lengthened by ll characters to 


276 characters by adding eight blanks at the end 


of the record. 


aSm 


iv) _Only property tax records pertaining to non- 
vacant residential properties were retained. 
Those pertaining to other categories were deleted. 
v) A key was placed at the beginning ef the record 
to indicate whether the assessed person(s) 


owned (0) ore rented (R) the property. 


4. In preparing an input tape of personal income tax records for the 


program, the following changes were made to the data tapes supplied 


o 
, 


by the Department of Revenue. 


i) Each record was lengthened by nine characters 
- (from 315) to 324 characters by addining nine 
blanks at the end of the record. 


ii) No further changes. 


5. All of the steps mentioned above were performed on the IBM 360/40 
which was resident at the Computer Services Centre (hereafter referred 


to "as CSC) “untsr Oétoter T1972: 


6. As of October 1, 1971, it was necessary to convert both input tapes 
(property tax and personal income tax) for use on the UNIVAC 1108 


at CSC. The conversion program created two tapes with the following 


characteristics: 


LY? °COBOL “Lornat 
ii) 9 - track 
- iii) Standard labels 


iv) Property tax tape - blocking factor - 10 
- 46 words per record 


Eye 


v) Personal income tax tape - blocking factor - 50 
- 54 words per record 
NOTE: Since each word contains six characters, one can see why 


both records had to be lenthened: | 


The COBOL formatted tapes were created in Fortran-callable, COBOL 
File Handler subroutine, @GFI@C. ‘This subroutine is part of the 
system library at CSC, and a description of how to use it is 


available from CSC or from anyone who has used it. 


1. 


IIIf. The Program Itself 


Input - the two tapes described in Part II. There are approximately 


15,000 property tax records and 28,000 income tax records. 


The Matching Procedure - Basically, the program takes a property 
record and tries to find an income tax record with identical names 
and addresses. More specifically, the program reads in a property 
tax record and then an income tax record. If the surname on the 
income tax record precedes (alphabetically) the surname on the 
property tax record, then it is assumed that there will be no match 
for this income tax record. Income tax records are read in until 
the surname on the income tax record is identical or exceeds the 
surname on the property tax record. In this case, the income’ tax 
record is stored. If the surnames are identical, addresses are 
compared. If addresses match, then given names are compared. Doubt- 
ful and certain matches are written on tape. If thé surname on the 
income tax record exceeds the surname on the property tax record, 
another property tax record is read in, Now, records that were stored 
earlier in the program are compared and the same comparison criteria 
as above are applied to the records. After the stored records are 
exhausted, more’ income tax records are read from the input tape. 
Whenever, the surname on an income tax record precedes the surname 
on the property tax record, the income tax record is deleted from 
storage. Ail income tax records that cannot be sidipiehed are written 
on tape. The entire procedure continues until one of the tapes 


reaches an end of file. — we 


en 


3. The above description is by no means a thorough description of 


the matching procedure but is merely an attempt to outline the 


important steps in the program. 


4, Output = from the line printer. 


a) 


b) 


"vital statistics" (i.e. no. of records read, 
no. of records written) 


all unmatched property tax records. 


3+ Qutput - on tape. All certain and doubtful matches are written on 


one tape. 


They are coded so as to be distinguishable. Also, ona 


second tape, all unmatched personal income tax records are written. 


6. The output tapes created on the UNIVAC 1108 can be adapted to the 


~PDP-10 (Dataline) with minimal problems. Both tapes were created 


using the I/O routine NTRAN, which is available in the system library 


of both machines. 


7. Both output tapes possess the following characteristics: 


i) 
ii) 
iii) 
iv) 
v) 


vi) 


written by NTRAN 

7 - track 

unlabelled 

blocking factor - 10 

Matched record is 208 words long. 


Unmatched income tax record is 87 words long. 
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Description of Important Variables and Flags 
In the Program 


KSW has the value 

0 when a PIT record is to be read from storage. 

1 when a PIT record is to be read from the input tape. 
LSW has the value 

0 when the surname on the PIT record does not match the 


surname on the property tax record. se 


1 when these surnames do match. 


IPRSW has the value 
0 -when the surname on the property record is the same as the 


surname on the previous property tax record. 


- when these surnames are different. 
MSW has the value 
Poe for the first match of a PIT record with a property tax record, 
and ; 


ot Bg for any subsequent match of a PIT record with the same property 


tax record. 


LOEE has the value 


toh and indicates a certain match. 
LDEE has the value 


oe and indicates a doubtful or possible match. 


athe 


MSTATJ has the value 
J i, when the name on the PIT record matches the first name on 
the property tax record. 
we when the name on the PIT record matches the second name on 


the property_tax record. 


Se 
Gee 
Fae 


ISTORD is the number of records currently in storage. 


KSTORD is a pointer indicating the record that is being read from 


ere 


storage. 


INPROP is the number of property tax records that have been read 


from the input tape. 


INPIT is the number of PIT records that have been read from the 


input tape. 
ICERT is the number of certain matches that have been found. 


IDOUBT is the number of doubtful matches that have been found. 


LERR has the value 
0 until end of file on the PIT input tape is reached, 
and 
1 when end of file is reached. ; 
KERR . has the value 
0 until end of file on the property tax input tape is reached, 
and 


1 when end of file is reached. 


die 


6. 


ay Oe 


V. Description of Output Record 


KEY #1 - The first word in the output record indicates whether _ 
the matches is a certain or a doubtful match. It is coded C or 


D respectively. 


KEY #2 - The second word contains the label 0 (Zero) if this is 
the first match of a personal income tax record and the property 
tax record, or 1 if this is a subsequent match of a different 


personal income tax record with the same property tax record. 


KEY #3 - The third word contains the label 1 if the name on the 
personal income tax record matches the first surname on the property 
tax record, or 2 if the name on the personal income tax record 


matches the second surname on the property tax record. 


KEY #4 - The fourth word indicates whether the property is owned 

or rented by the person(s) mentioned on the property tax record. 

It is. coded @ or R respectively. This piece of data is not too 
reliable since the record selection procedure used by the programmers 
in the preparation of the input tape may have underestimated the 
number of properties rented. This does not affect the matching 


procedure in any way. 
Words 5 - 121 are property tax record data. 


Words 122 - 208 are income tax record data. 


aie 


7. The following is a breakdown of the components of a matching 


record. The output vector is called MATCH, and has 208 components. 
GUELPH MATCHED RECORDS 
DESCRIPTION OF OUTPUT RECORD 


Position on 
Original Variable 


Format Tape Name Description 
MATCH (1) i Al se Key #1 
2 1 Al oe : Key #2. cig 
3 et deekd oe Key #3 4 
4 sf Al -- : Key #4 ; 
5 2 12 1-2 County 
6 2 ne 3-4 Municipality 
| | 2 12 5-6 Ward ED rs 
| 8 4 I4 7-10 Area . CODE 2 
9 o I5 11-15 Roll # cupEs 
“10 4, I4 16-19 Tenant # Cope! 
vi 1 Al 20.0 ume PERFY | 
ge bi ‘ Al 21 - . RCE ' 
13 1 Al 22 tie SUPPORT 
14 1 Al fh CORP 
15 2 12 24-25 High School 
16 2 Bees 26-27 Public School 
iT vs I2 28-29 Separate School | 
1. 4 A4 30-33 PKLAS Property Class fe i Ai 


19 1 ee 34 - Special Area Rates #1 


Pe 


MATCH 20 1 Il a5 Special Area Rates #2 
BL POtes 7. Il 36 " i" "$3 
as 1 1 37 be si "#4 
23 x se 38 b * "#5 
24 i Il ae ‘ i 90 
1: aS is Is 40-47 Occupied Land 
26 8 18 48-55 Occupied Building 
27 3 I3 56-58 Business % 
28 8 Yk 59-66 : Pre-Co. Business $§ 
29-33 5 SAL 67-71 House # 
34-57 24 24A1 72-95 3 Street Name 
58-65 29 7A4,A1l 96-124 Short Form Description 
66-93 28 28A1 125-152 Name of Assessed Person #1 
94-121 28 28A1 153-180 Name of Assessed Person #2 
122 7 L7 1-7 LOC | 1969 Locator # 
123 6 16 8-13 TYOB Birthdate 
3X 14-16 Unused 
124 2 I2 17-18 a7 Province 
125 2 12 19-20 : Always 69 
126 ‘ 14 21-24 Calendar date of assessment 
127 1 ay? 23 Assessing category code 
128 ‘ ee 26 T67A Action Code 
129 1 Il 27 SAM Sample Code 
130 z Tl 28 Marital status 


ra 29-30 Unused 


MATCH 131 


A 


133 
134 
135-6 
137 
138 
139-42 


143 


10 


10 


110 
110 
19,Al 
110 
16 
4AL 
110 
19,A1 
110 
19,Al 
19,Al 
110 
110 
110 
110 
110 
110 
19,Al 
19,Al 


1LOAL 


15. 


31-36 


37-40 


41-50 

51-60 

61-70 

71-80 

81-86 

87-90 
91-100 
101-110 
111-120 
121-130 
131-140 
141-150 
151-160 
161-170 
171-180 
181-190 
191-200 
201-210 
211-220 
221-230 
231-239 
240 


241-245 


Prior year loss 


Gross income from man's 
source $'000 


Foreign income 
Net dividends » 
Total income* 
Total deductions 
Medical gross 


First 4 char of spouse's nam 


‘ Gross donations 


Personal excmptions* 
Taxable income 

Net federal tax* 

Net provincial tax* 

Foreign tax paid 

Foreign tax credit- Fed. port 
Foreign tax credit- Prov. " 
Tax deducted per T4 

Tax adjustments 

Payment received on filing 
Taxpayers balance* 

Computer calculaged balance* 
Surname 

Social Insurance No. 

Sex code 


Locality code 


af Bg 


MATCH 
174-78 5 5Al 246-250 FNAME First name 
179-208 30 30Al 251-280 ADD Street Address 
* 


For these six variables, the last location for each variable is 
overpunched to indicate the sign (+ or -). After conversion of 


these variables (use subroutine NUMC@M), the entire variable will 
be stored in the underlined location. 


ea Up 


VI.. Limitations of the Program 


Visual examination of tape dumps of the two input tapes reveals 


that in a very small number of cases, the program did not match 


records which should have been matched: 


cael 


~ 


First, consider the case of a property tax record containing two 
different surnames, say JONES AND SMITH. This record will be 
sorted among the property records starting sien the letter J. The 
program may be able to find an income tax which will match JONES, 
but will not look for an income tax record which will match SMITH. 
To search for an income tax record for SMITH at this point would 
require excessive C.P.U. time and core. Hence, anytime that a 
property tax record contains two different surnames, it is unlikely 


that the program will search for an income tax record which matches 


the second surname. 


Second, names and addresses may be misspelled or misread by those 
persons who prepare the data. The following are examples: 
i) Missing punctuation: O'BRIEN may be Tee te 
apostrophe. 
ii) Names that are not pronounced in English the way they 
are spelled: certain European names. 
iii) Names that can be spelled many ways: SHEPHERD, 
SHEPHARD, SHEPPARD, etc. 


iv) Errors in addresses 


v) A name like MACDONALD may appear as two words, i.e. MAC DONALD. 


21h 


This program does not have the capacity to determine whether a 
name is spelled correctly. Hence, any match involving misprinted 
input data which may be obvious to the human eye is rejected 


immediately by the computer. 


If the user should wish to try to obtain more matches by visual 
means, the print out of the unmatched property tax records and 
the tape dump of the unmatched income tax records are available 


for this purpose. 


* 
I! 


This program is not a general matching program. It was written 
to handle specific data under specific conditions. Hence, anyone 
wishing to design a program to perform a matching procedure should 


take note of the specialized nature of this program. 


Reading in the Matched Records 


Input records are read from the input tape ten at a time. 


However, the user will want to analyze each record individually. Hence, 


the following statements will serve as a suggested means of doing this: 


COMMON etc. 
DATA NRIN/O/, IEND/O/ etc. 


tee 


\ 
20 CALL READTP - ha 
DM 100 I = 1, 10 
CALL -ATTACH- (I) 


R 
Insert FQ@RTAN statements which 
analyze each record 


100 CONTINUE 
IF (IEND.NE.I) G% TO 20 


Program continues on end-of-file 


4 
4 


| 
STOP 
END 


Subroutine READIN performs the following operations each time. 
it is called. re 


’ 


i)” checks for end-of-file 
ii) reads in ach leek of ten records 
iii) checks for unreadable records 


iv) increments record counter by 10 


v) converts Overpunched characters to numeric form 
(calls NUMCQN ) 


iv) returns to calling program. 


GUELPH MATCHING PROGRAM - NEW OUTPUT TAPE 


The output tapes from the Guelph Matching Program are 
not completely readable at Dataline. All numeric data can be 
read on the PDP-10, but literal data cannot be read. In other 
words, all data pertaining to money can be read, but information 
such as names and addresses cannot be read. Hence, a new tape 
has been created on the UNIVAC 1108 using NTRAN. This tape contains 


only certain matches, and possess the following characteristics: 


i) 7-track 
ii) unlabelled 
iii) blocking factor - 10 
iv) record length - 208 words 
v) MATCH (1) = 1 (not 'C') for all records 


vi) MATCH (2) = 1 instead of '0' 
or 2 instead of '1' 


_ 


‘wii) MATCH (3) = instead of '1' 
Or V2 instead of '2' 


viil) MATCH (4) = 1 instead of 'g' 
or 2 instead of 'R' 


ix) MATCH (18)= 1 instead of 'RBSU' 
or 2 instead of 'FBSU' 
or 3 for all other property classes. 


x) All overpunched characters have been converted 
using subroutine NUMC@N. 


NOTE: Please refer to the description of the output record in the 


documentation to the program. 


Subroutine ATTACH with argument I attaches program variable 
ot 
names to the appropriate elements of the i. record of the input block 
of records. The program variable names are contained in COMMON statements. 


This subroutine is readily alterable according to the data requirements 


of the user, 


RIKRKRERK REECE 


Program file READTP contains the three subroutines 


one 


READIN, ATTACH, and NUMCQN. 


The following items are still unreadable on the PDP-10. 


MATCH (11) - MATCH (14) 
MATCH (29) - MATCH (121) 
MATCH (139) +  MaTCH (142) 
MATCH (161) = MATCH (170) 
MATCH (174) - MATCH (208) 


However, it is not expected that they will enter into the analysis. 


The user is reminded that the overpunched characters 
appearing in the income tax section of the output record have already 
been converted. Hence subroutine NUMCO@N will not be called by 


READIN. 


Harry Newton 


November 17, 1971 


Appendix H 
NUMERIC CONVERSION 


Helmut Giese 


September 21, 1971 


This is a sub-routine in the Guelph Analyzer which converts a 


Cobol formatted sign to a Fortraw integer. 


ATO 7% 
pasar OF 


Tose 


TNREC 


' H we ) 
duas A o awk Nae 


»- 
wy 


ae 
ING w~le 


to 
7 


lo 
Sey, 


PIN NTS 
weston LEN 


INREC. IPRINT) 


TTY OYA aaa PSN 
NueCON (X UM fe Bh, 


“my 2 cobol sign formatted number 


it to a Fortran integer. 
) 
ss the integer portion of the number (in 10's) 


is the sign-carrying digit (making it an alphabetic 


field containing a character not recognized 


Lor corversion 
is the logical unit number on which error messages are 


are Written. 


Any one oc all if NREC, INREC, ITPRINT maybe set to 


zeave out the identification of an 


co 


an unrecognizable character, 


LE CPRINT = OG , no error message is given. 


ID contains a character not recognized in the 


conversion, then 
Z.1 NUMCON = + 10 * NUM 


ge is written on Unit LPRINT. 


Zed he Messe 


enized for conversion are 


VNaraeLers mec 
Shee the disive (0c 
ay the letters A to R 
Secs olanks, and the fields 12-0 and 1f9 


eis +, ea 

Bist Ss SY Leuk DUS 
NUBCO Palsy oe POL 

— 


OMA we 
VUVLOO) 


a eee RE at ey 
SULONMUWNT CSLOCK» 


— 


ee 7\ sh, i1 we js 
| eae 
™) 


OQOGi GOGG05 Live Gool oool 
Meh. d Pot GIGL 600220 S00L 0060 ¢ 000042 -TADD 
OS, EN GPs OCS3 L OOGO0l IT 0000 I 060025: ITN 
OGe0i9 NUM CON 4 
aay 
why : ces We eho at ” ae 
: ClACEL NUACSON FOR WUMBER-CONVERSION) HeGIESE SEPT/71 
sar c 
oh FUNCT ZEON NuaCOn (NUM »s BDoel IREC e INREC » IPRINY) 
‘ as 
5 . ves PUNT AON CONVERTS THE COBGL FORMATTED SIGNE 0 NUMERIC FIELDS 
ce oe wo PULLS OUT THE SIGN CARRIED BY THE ZONE PORTION OF THE LAST 
1B. C HiGit ' ve 
. Bevo LNA SONGS NOW NOUIRIC PART OF NUMBER IN LOTHS. 
Che! ip hee =f 3 SiC oF (£0 (COVERPUNCHED) UNITS PART OF NUMBER» 
a ie Nic we “UT RECORD NUMGER. 
C EWHIG ORDZINAL NUMBER OF FIELD IN RECORD. 
= C EPRINYT PRINTER LOGICAL UNIT NUMBER. 
sei! CewOis 202) «ND IV¢(ii) ARE 12-0 AND L210 PUNCHES RESPECTIVELY 
: & 
JERENSIC! 2020) o PTNG10) 
Gee Prk be EIN AHO Litho ai eae WHE aera bay init) 
= | v 
JG0025 666505 050565 6000 
000026 620565 056505 0000 
ss GOoC02 620565 050505 0006 
030036 636595 050505 0000 
Od0034 6803565 050505 G000 
. C90032 656505 050505 Oo000 
a 609033 666565 050565 GGOG 
hl OSOG34 676585 050505 6000 
C30035 786505 050505 0600 


~ fad yan 4H? 
asa e T,./iH 


Sf 2 
~~ 
wile 


DAVA(G) 0001043 


TVPG 


COMPILATIONS 


G300SS 7105065 


RELATIVE LOCATION? 


ie: | 


On Aucone Vee 


ene 


BLANK COMMON(2) 000000 


NAME) 
0000235 -1256 


050505 0000 


gL Ae@LHOe LAC se LHDe LHEe LH Ey LHGe AHH LHI» 
pelted hike SL a SHB e LAN: LHOe LHP LHe LHR/e TEL/ 1H an 


OO004S6 14 
0000 I 000040 Ib 
0000 I 000057 ig 


NUMCG 
NUMCO 
NUMCO 
NUMCO 
NUMCO 

NUMCO 
NUMCO 
NUMCO 
NUMCO 
NUMCG 
NUMCG 
NUMCO 
NUMCO 


NUMCO 
NUMCO 


NUMCO 
NUMCO 


C7 es 


i 
[EDEN fealon EST | |z7ax (K) | 
IDENT = NUMCON(IXN (i), IXD(\), NREC, 1, 6) 
J ZPRINT = 6, 
ITAX («) = NUMCON (Zx#(J), IXD(D, NREC, J, PRINT) 
~/ 


“At Pd 
wer 


f= 


ayaa 


sADD = 0 


‘a VD. EGe IBL) 60 


BO i105 J=ir10 
LADD =J-1 


IF (ID. EQ. ITN( 59) GO To 300 


i ‘Br et oa CT a 
UN te NAS te 


aw vis om 


Bet ce nee ING eoNceO) WRET rE 


0081206 


006032 7404 00 00 6 O0o1 
000635 2417 01 00 0 000001 
0000354 7064 04 00 0 000023 0001 
060055 1017 02 00 oO 000012 
* 000036 6160 02 00 0 000041 0000 
TO 366 
000037 0500 GO 00 0 000042 70000 
600046 1000 00 60 6 000040 C006 
COCO4L i500 06 00 0 000000 7775 
' 0G0042 5i060 00 00 0 000014 
060043 7404 00 60 0 000120 0001 
0000&4 2717 01 06 0 000001 
080045 2317 04 00 0 000011 
OCOOL6 0600 01-00 CG 000043 O000 
COCO4? 1017 GO 00 0 GObO01 
000050 i500 06 06 0 GOO00435 GOOD 
oo0cgs5si 0260 66 08 0 690042. B000 
' 600052 1060 G2 Gi 0 GO0G24 O000 
600053 1500 62 00 6 000000 7775 
' 0960054 5160 00 00 6 000016 
000055 7404 66 66 G 006120 G001 
006056 2417 G1 00 6 O00CO1 
COCOS7 7004 64 00 6 000046 ODD1 
LPRINTo1) ENREC? IDe IDeNRECe IT Te ITN 
OCOG6D 6560 66 O65 S O000642 5000 
00006 5i00 06 06 0 060074 OC00 
OSb862 7404 60 66 0 000120 0062 
060863 7413 13 08 G6 000000 0003 
OG0CS4s 6060 06 O21 39 0809074 Oa06 
6G6G05 GOS9 00 60 0 OG0044 O066 
* 000066 6000 6S 12 5 060071 OaGO 
C20067 1017 060 60 0 006075 O00 
60cg70 7201 01 60 G 000000 0004 
CoOoO71 iSi7 00 60 0 000000 7775 
GOGOG72 7201 01 66 6 000000 0004 
0OCG73 1017 06 09 0 000000 7775 
Oooo 7201 01 06 0 GO0GO000 0004 
660075 L10L7 GO GO 6 GO0076 00006 
OC5S76 7202 01 65 6 O00B000 0004 
OCGO077 1617 16 60 0 000001 
OG01iG9 23i7 04 60 0 000023 
OCGLiGL 0100 16 60 6 000037 0000 
CC3i02 2760 01 OO G 690037 OOGO 
006403 1017 00 G61 0 600000 0060 
C00104 720i 01 00 0 000600 0004 
069105 1417 16 GO 0 O00001 
OOGiOG 706% 64 GO 8 000161 OOD1 
G00iG7 1017 16 60 0 000001 
CG0i16 2317 04 00 0 000011 


14iG 


L606 


->,> 


SogcalL S40505 050505 0000 
O0G052 960505 650505 0000 
000005 07090505 050505 Q000 
" GOdOG4 109505 050505 0000 - 
co00cs 410505 650505 OoG00 
' 006066 420505 050505 0000 
OoGou7 4350505 050505 QOGGd 
669010 2409505 050505 — 0000 
OOG012 £50505 @S6505 9900 
COuGLS 460505 050505 0000 
000015 550505 050505 0060 
000024 170505 050505 0000 
OSGELS 200505 050505 C000 
COOG16 210505 05050.. O00G 
' 006017 220505 050565 000c 
000020 230505 050505 0000 
*“o00del 240505 050505 0000 
~~ 800022 256505 0506565 0060 
CO00ds 260505 050505 g000 
oo0ge4 270505 050505 6000 
COGB40 650505 050565 0000 
wine Oe 
OoGocO 1017 oo 69 0 000612 
Eau w= & 
oodacl 0169 00 GO Oo 000041 0006 
GoGese 0566 Go GO 0 000042 0000 
0000535 2717 01 GO O ooo0ol 4 
C0Go04% 23517 04 60 6 O00G1i 1 
3 x6 S=LoLO ‘ 
GOVGsS 0600 O61 00 GO 6086435 0000 
COCOTS 4017 00 00 0 COCO 
SO000G67 1500 00 00 6 600043 0000 
t(iDeEae TT(U)) GO FO 500 
~ GOGGLG 69200 060 00 6 000042 00090 
OGdGLL ico0 o2 01 9 G00000 0000 
~~ 000012 i500 02 60 0 000000 7775 
CGO0LS 5ic00 Gd GO 6 000016 
OCGeLS 7404 00 0060 0 000120 0001 
UGSOLS 2417 01 06 0 OO0OS1 
win § 
COGGLS 7004 04 06 0 000005 0001 
OSoOLT 1017 02 00 3 177765 
060920 0100 02 06 6 006041 0000 
ocoove2i 2717 061 60 0 000001 
A 000022 2317 04 006 0 000011 
Uv v wera 


000623 6600 01 00 0 000043 0000 
OGco24 1017 90 08 Oo 000001 ; 
Aue 090025 15009 00 00 6 000043 0000 
LF (lOeEOQ.2T(Ut10)) 6O TO 300 7 
COb026 0100 00 Cd 0 000042 0000 
600027 1000 OZ 01 0 000012 0000 
000030 1500 62 G0 0 000000 7775 
600031 5100 00 00 O 


000016 


000057 68000 "1646 


OG0242 $100 15 00 0 
Godite2 2700 01 00 0 000037 0000 
'O00115 2037 90 62 G 000024 0000 
a 0ocii% 7201 61 65 @ O000G0 0004 
Ma 000115 1437 16 62 9 000001 
‘ ' 060146 706% 64 O08 6 000111 0001 
a ' 000117 72t.. 50 06 0 090000 0005 
Sox JOO NUMCON=ZMULT*NUM+IADD . 
Ee 000120 1650 00 00 0 000041 0000 "., SGGE 
OG0lel 3100 00 00 0 000077 O000 
an 000122 1400 00 00 0 000042 0000 5 
| RETURN | | p 
Cc i . : t 
~ 600123 06100 00 00 0 000000 0000 
— 000124 2300 03 00 6 000126 S001 
000125 740% 00 00 0 000127 0001 
000126 0000 07 i1 0 000071 O00c0 ‘ 
000127 2700 13 00 6 000072 0000 ” (Sex 
GO01S0 7115 16 00 0 G00100 0000 
000131 2700 61 GO 0 060162 0000 
O0G352 2300 04 00 6 000103 00090 
GCG9i55. 1000 00 06 0 C00000 0000 
~ 000134 5015 660 00 1 660067 0000 
G00235 7404 00 00 1 000067 GOOD 
900136 7464 G0 GO 0 000000 0006 
000137 0601 15 06 0 090072 6008 “ NUMCK 
* 060140 7112 16 00 0 000100 0000 
© OCGL41 C660 02 00 0 000102 0000 
COO142 §=6460 04% 06 0 900105 0000 
000243 ico0o 01 13 1 000000 . 
O0d144 9100 01 00 0 090077 O00C0 
O00145 1016 00 13 1 000001 
000146 0101 00 00 0 000053 0001 | 
OC0147 0101 GO 00 0 000073 0001 | 
COd0i50 0102 00 00 0 O00071 0001 
. O90151 0102 00 60 0 000012 0001 
0900152 0101 GO 00 OQ 000050 O001 
0003535 0101 GO 60 0 660041 9001 
f 000154 1600 01 13 1 0060002 
000155 0106 O02 00 O 000076 0000 
600156 1000 021 13 1 000003 
000157 0100 01 00 QO 000075 0000 
a 000260 1000 01 13 1 000004 
OGOi61 0100 01 00 9 000074 0000 
te ems 2 FORMAT(/9*® TOD NOT IN CONVERT TABLE © Y(teISe")e "sAle* INPUT RECO: 
~ &Sx *RD H° 9 LGe//L0Xe20ALeSXeiOAieo® OR BLANK?*o/) | ; 
feb x END j 
600162 7404 00 00 0 000000 0001 
“ND OP Gee LATIONS NO DIAGNOSTICS. x 
- } 
5 \ fn 
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os 


5<SEP 2201971 


“$8212325-SEP 2201972 


. ia ae ah 
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